[binutils-gdb] Use clean_restart in gdb.fortran

[Tom Tromey]

https://sourceware.org/git/gitweb.cgi?p=binutils-gdb.git;h=1d6704e0ce0f656dfb5e2745ea7bf701b3e511f6

commit 1d6704e0ce0f656dfb5e2745ea7bf701b3e511f6
Author: Tom Tromey <tom@tromey.com>
Date:   Wed Jan 25 10:48:44 2023 -0700

    Use clean_restart in gdb.fortran
    
    Change gdb.fortran to use clean_restart more consistently.

Diff:
---
 gdb/testsuite/gdb.fortran/exprs.exp | 6 +-----
 gdb/testsuite/gdb.fortran/types.exp | 7 +------
 2 files changed, 2 insertions(+), 11 deletions(-)

diff --git a/gdb/testsuite/gdb.fortran/exprs.exp b/gdb/testsuite/gdb.fortran/exprs.exp
index 30f0aa691db..7633ab0fefa 100644
--- 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 aaa6962c37c..3c26c79ec9e 100644
--- 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]} {