From 1d6704e0ce0f656dfb5e2745ea7bf701b3e511f6 Mon Sep 17 00:00:00 2001
From: Tom Tromey <tom@tromey.com>
Date: Wed, 25 Jan 2023 10:48:44 -0700
Subject: [PATCH] Use clean_restart in gdb.fortran

Change gdb.fortran to use clean_restart more consistently.
---
 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]} {
-- 
2.30.2