From a6b775188177ea5cae240aa6ff8e44748b4232dc Mon Sep 17 00:00:00 2001 From: Rohit Goswami Date: Tue, 30 Jul 2024 15:14:05 +0000 Subject: [PATCH] BUG: Allow tests to be run multiple times Without failures due to existing files --- test/cblat3_3m.f | 5 ++--- test/zblat3_3m.f | 4 ++-- 2 files changed, 4 insertions(+), 5 deletions(-) diff --git a/test/cblat3_3m.f b/test/cblat3_3m.f index 19f7830be..b61fca53c 100644 --- a/test/cblat3_3m.f +++ b/test/cblat3_3m.f @@ -104,7 +104,7 @@ * READ( NIN, FMT = * )SUMMRY READ( NIN, FMT = * )NOUT - OPEN( NOUT, FILE = SUMMRY, STATUS = 'NEW' ) + OPEN( NOUT, FILE = SUMMRY, STATUS = 'UNKNOWN' ) NOUTC = NOUT * * Read name and unit number for snapshot output file and open file. @@ -113,7 +113,7 @@ READ( NIN, FMT = * )NTRA TRACE = NTRA.GE.0 IF( TRACE )THEN - OPEN( NTRA, FILE = SNAPS, STATUS = 'NEW' ) + OPEN( NTRA, FILE = SNAPS, STATUS = 'UNKNOWN' ) END IF * Read the flag that directs rewinding of the snapshot file. READ( NIN, FMT = * )REWI @@ -3439,4 +3439,3 @@ * End of XERBLA * END - diff --git a/test/zblat3_3m.f b/test/zblat3_3m.f index bac23aa54..86977d674 100644 --- a/test/zblat3_3m.f +++ b/test/zblat3_3m.f @@ -105,7 +105,7 @@ * READ( NIN, FMT = * )SUMMRY READ( NIN, FMT = * )NOUT - OPEN( NOUT, FILE = SUMMRY, STATUS = 'NEW' ) + OPEN( NOUT, FILE = SUMMRY, STATUS = 'UNKNOWN' ) NOUTC = NOUT * * Read name and unit number for snapshot output file and open file. @@ -114,7 +114,7 @@ READ( NIN, FMT = * )NTRA TRACE = NTRA.GE.0 IF( TRACE )THEN - OPEN( NTRA, FILE = SNAPS, STATUS = 'NEW' ) + OPEN( NTRA, FILE = SNAPS, STATUS = 'UNKNOWN' ) END IF * Read the flag that directs rewinding of the snapshot file. READ( NIN, FMT = * )REWI