@@ -147,13 +147,13 @@ subroutine test_io()
147
147
' write_bitset'
148
148
149
149
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' , &
151
151
form= ' formatted' , action= ' write' )
152
152
call set2 % write_bitset(unit)
153
153
call set1 % write_bitset(unit)
154
154
call set0 % write_bitset(unit)
155
155
close ( unit )
156
- open ( newunit= unit, file= ' test .txt' , status= ' old' , &
156
+ open ( newunit= unit, file= ' test64_1 .txt' , status= ' old' , &
157
157
form= ' formatted' , action= ' read' )
158
158
call set3 % read_bitset(unit)
159
159
call set5 % read_bitset(unit)
@@ -169,13 +169,13 @@ subroutine test_io()
169
169
170
170
close ( unit )
171
171
172
- open ( newunit= unit, file= ' test .txt' , status= ' replace' , &
172
+ open ( newunit= unit, file= ' test64_2 .txt' , status= ' replace' , &
173
173
form= ' formatted' , action= ' write' )
174
174
call set2 % write_bitset(unit, advance= ' no' )
175
175
call set1 % write_bitset(unit, advance= ' no' )
176
176
call set0 % write_bitset(unit)
177
177
close ( unit )
178
- open ( newunit= unit, file= ' test .txt' , status= ' old' , &
178
+ open ( newunit= unit, file= ' test64_2 .txt' , status= ' old' , &
179
179
form= ' formatted' , action= ' read' )
180
180
call set3 % read_bitset(unit, advance= ' no' )
181
181
call set4 % read_bitset(unit, advance= ' no' )
0 commit comments