1! { dg-do compile } 2! { dg-options "-std=legacy" } 3! 4! pr24584, segfault on namelist reading an empty string 5! Contributed by Jerry DeLisle <jvdelisle@verizon.net> 6 implicit none 7 character*20 temp 8 character(len=10) var 9 namelist /input/ var 10 var = 'Howdy' 11 open(unit=7, status="scratch") 12 temp = ' var=''''' ! var='' in the file 13 write(7,'(A6)') '&INPUT' 14 write(7,'(A10)') temp 15 write(7,'(A1)') '/' 16 rewind(7) 17 read(7,NML=input) 18 close(7) 19 if (var.ne.'') STOP 1 20 end 21