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