1! pr 16080, segfault on reading an empty string
2      implicit none
3      integer t
4      character*20   temp_name
5      character*2 quotes
6      open(unit=7,status='SCRATCH')
7      quotes = '""""'  ! "" in the file
8      write(7,*)1
9      write(7,'(A)')quotes
10      temp_name = 'hello'  ! make sure the read overwrites it
11      rewind(7)
12      read(7, *) t
13      read(7, *) temp_name
14      if (temp_name.ne.'') STOP 1
15      end
16