! pr 16080, segfault on reading an empty string | |
implicit none | |
integer t | |
character*20 temp_name | |
character*2 quotes | |
open(unit=7,status='SCRATCH') | |
quotes = '""""' ! "" in the file | |
write(7,*)1 | |
write(7,'(A)')quotes | |
temp_name = 'hello' ! make sure the read overwrites it | |
rewind(7) | |
read(7, *) t | |
read(7, *) temp_name | |
if (temp_name.ne.'') STOP 1 | |
end |