blob: 16e0d42b8af4eef435494ad4f4faf593d5e4caf0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
! { dg-do run { target fd_truncate } }
! PR34291 Segfault on &end in namelist expanded read of character
implicit none
character(len=10), dimension(2) :: var
namelist /inx/ var
var = "goodbye"
open(unit=11, status='scratch')
write (11, *) "&inx"
write (11, *) "var(1)='hello'"
write (11, *) "&end"
rewind (11)
read(11,nml=inx)
if (var(1) /= 'hello' .and. var(2) /= 'goodbye') call abort
var = "goodbye"
rewind (11)
write (11, *) "$inx"
write (11, *) "var(1)='hello'"
write (11, *) "$end"
rewind (11)
read(11,nml=inx)
if (var(1) /= 'hello' .and. var(2) /= 'goodbye') call abort
end
|
