@@ -147,13 +147,13 @@ subroutine test_io()
147147 ' write_bitset'
148148
149149 call set2 % from_string( bitstring_33 )
150- open ( newunit= unit, file= ' test .txt' , status= ' replace' , &
150+ open ( newunit= unit, file= ' test64_1 .txt' , status= ' replace' , &
151151 form= ' formatted' , action= ' write' )
152152 call set2 % write_bitset(unit)
153153 call set1 % write_bitset(unit)
154154 call set0 % write_bitset(unit)
155155 close ( unit )
156- open ( newunit= unit, file= ' test .txt' , status= ' old' , &
156+ open ( newunit= unit, file= ' test64_1 .txt' , status= ' old' , &
157157 form= ' formatted' , action= ' read' )
158158 call set3 % read_bitset(unit)
159159 call set5 % read_bitset(unit)
@@ -169,13 +169,13 @@ subroutine test_io()
169169
170170 close ( unit )
171171
172- open ( newunit= unit, file= ' test .txt' , status= ' replace' , &
172+ open ( newunit= unit, file= ' test64_2 .txt' , status= ' replace' , &
173173 form= ' formatted' , action= ' write' )
174174 call set2 % write_bitset(unit, advance= ' no' )
175175 call set1 % write_bitset(unit, advance= ' no' )
176176 call set0 % write_bitset(unit)
177177 close ( unit )
178- open ( newunit= unit, file= ' test .txt' , status= ' old' , &
178+ open ( newunit= unit, file= ' test64_2 .txt' , status= ' old' , &
179179 form= ' formatted' , action= ' read' )
180180 call set3 % read_bitset(unit, advance= ' no' )
181181 call set4 % read_bitset(unit, advance= ' no' )
0 commit comments