@@ -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