1! { dg-do run }
2! { dg-options "-O0" }
3! Test patch for PR24416.f90 - a used to come back from the read with var
4! prepended.
5!
6  IMPLICIT NONE
7  CHARACTER(len=10)  :: var = "hello"
8  character(len=10)  :: a = ""
9  NAMELIST /inx/ var
10
11  OPEN(unit=11, status='scratch')
12  write (11, *) "&INX"
13  write (11, *) "  var = 'goodbye'"
14  write (11, *) "&END"
15  rewind (11)
16
17  READ(11,NML=inx)
18  CLOSE(11)
19
20  OPEN(unit=11, status='scratch')
21  write (11, *) "alls_well"
22  rewind (11)
23
24  READ(11,*) a
25  CLOSE(11)
26
27  if (a /= "alls_well") STOP 1
28
29END
30