1! { dg-do run }
2!
3! PR fortran/56735
4!
5! Contributed by Adam Williams
6!
7        PROGRAM TEST
8        INTEGER int1,int2,int3
9        NAMELIST /temp/ int1,int2,int3
10
11        int1 = -1; int2 = -2; int3 = -3
12
13        OPEN (53, STATUS='scratch')
14        WRITE (53, '(a)') ' ?'
15        WRITE (53, '(a)')
16        WRITE (53, '(a)') '$temp'
17        WRITE (53, '(a)') ' int1=1'
18        WRITE (53, '(a)') ' int2=2'
19        WRITE (53, '(a)') ' int3=3'
20        WRITE (53, '(a)') '$END'
21        REWIND(53)
22
23        READ (53, temp)
24        CLOSE (53)
25
26        if (int1 /= 1 .or. int2 /= 2 .or. int3 /= 3) call abort()
27        END PROGRAM
28