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