Use clean_restart in gdb.fortran

Change gdb.fortran to use clean_restart more consistently.

diff --git a/gdb/testsuite/gdb.fortran/exprs.exp b/gdb/testsuite/gdb.fortran/exprs.exp
index 30f0aa691dba3f78178e6b4474e1237d0c91dcd6..7633ab0fefa8102e0f9db74b26daac86103d273e 100644 (file)
--- a/gdb/testsuite/gdb.fortran/exprs.exp
+++ b/gdb/testsuite/gdb.fortran/exprs.exp
@@ -241,11 +241,7 @@ proc test_arithmetic_expressions {} {
 
 }
 
-# Start with a fresh gdb.
-
-gdb_exit
-gdb_start
-gdb_reinitialize_dir $srcdir/$subdir
+clean_restart
 
 gdb_test "set print sevenbit-strings" ""
 

diff --git a/gdb/testsuite/gdb.fortran/types.exp b/gdb/testsuite/gdb.fortran/types.exp
index aaa6962c37c05d44c2e59c09929462b6a42d7e9c..3c26c79ec9ea4bc25758d4ead846c76a476075e5 100644 (file)
--- a/gdb/testsuite/gdb.fortran/types.exp
+++ b/gdb/testsuite/gdb.fortran/types.exp
@@ -98,12 +98,7 @@ proc test_primitive_types_known {} {
     }
 }
 
-# Start with a fresh gdb.
-
-gdb_exit
-gdb_start
-gdb_reinitialize_dir $srcdir/$subdir
-
+clean_restart
 gdb_test "set print sevenbit-strings" ""
 
 if {[set_lang_fortran]} {