Skip to content

Commit 6c6be5a

Browse files
committed
Use distinct file names
This seems to avoid a filename race conditions on macOS. Fixes fortran-lang#264.
1 parent 4bf52a4 commit 6c6be5a

File tree

1 file changed

+8
-8
lines changed

1 file changed

+8
-8
lines changed

src/tests/bitsets/test_stdlib_bitset_large.f90

Lines changed: 8 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -254,13 +254,13 @@ subroutine test_io()
254254
'write_bitset'
255255

256256
call set2 % from_string( bitstring_33 )
257-
open( newunit=unit, file='test.txt', status='replace', &
257+
open( newunit=unit, file='test1.txt', status='replace', &
258258
form='formatted', action='write' )
259259
call set2 % write_bitset(unit)
260260
call set1 % write_bitset(unit)
261261
call set0 % write_bitset(unit)
262262
close( unit )
263-
open( newunit=unit, file='test.txt', status='old', &
263+
open( newunit=unit, file='test1.txt', status='old', &
264264
form='formatted', action='read' )
265265
call set3 % read_bitset(unit)
266266
call set5 % read_bitset(unit)
@@ -276,13 +276,13 @@ subroutine test_io()
276276
close( unit )
277277

278278
call set12 % from_string( bitstring_33 // bitstring_33 )
279-
open( newunit=unit, file='test.txt', status='replace', &
279+
open( newunit=unit, file='test2.txt', status='replace', &
280280
form='formatted', action='write' )
281281
call set12 % write_bitset(unit)
282282
call set11 % write_bitset(unit)
283283
call set10 % write_bitset(unit)
284284
close( unit )
285-
open( newunit=unit, file='test.txt', status='old', &
285+
open( newunit=unit, file='test2.txt', status='old', &
286286
form='formatted', action='read' )
287287
call set13 % read_bitset(unit)
288288
call set15 % read_bitset(unit)
@@ -297,13 +297,13 @@ subroutine test_io()
297297

298298
close( unit )
299299

300-
open( newunit=unit, file='test.txt', status='replace', &
300+
open( newunit=unit, file='test3.txt', status='replace', &
301301
form='formatted', action='write' )
302302
call set2 % write_bitset(unit, advance='no')
303303
call set1 % write_bitset(unit, advance='no')
304304
call set0 % write_bitset(unit)
305305
close( unit )
306-
open( newunit=unit, file='test.txt', status='old', &
306+
open( newunit=unit, file='test3.txt', status='old', &
307307
form='formatted', action='read' )
308308
call set3 % read_bitset(unit, advance='no')
309309
call set4 % read_bitset(unit, advance='no')
@@ -319,13 +319,13 @@ subroutine test_io()
319319

320320
close( unit )
321321

322-
open( newunit=unit, file='test.txt', status='replace', &
322+
open( newunit=unit, file='test4.txt', status='replace', &
323323
form='formatted', action='write' )
324324
call set12 % write_bitset(unit, advance='no')
325325
call set11 % write_bitset(unit, advance='no')
326326
call set10 % write_bitset(unit)
327327
close( unit )
328-
open( newunit=unit, file='test.txt', status='old', &
328+
open( newunit=unit, file='test4.txt', status='old', &
329329
form='formatted', action='read' )
330330
call set13 % read_bitset(unit, advance='no')
331331
call set14 % read_bitset(unit, advance='no')

0 commit comments

Comments
 (0)