! { dg-do run } | |
! | |
! PR fortran/56735 | |
! | |
! Contributed by Adam Williams | |
! | |
PROGRAM TEST | |
INTEGER int1,int2,int3 | |
NAMELIST /temp/ int1,int2,int3 | |
int1 = -1; int2 = -2; int3 = -3 | |
OPEN (53, STATUS='scratch') | |
WRITE (53, '(a)') ' ?' | |
WRITE (53, '(a)') | |
WRITE (53, '(a)') '$temp' | |
WRITE (53, '(a)') ' int1=1' | |
WRITE (53, '(a)') ' int2=2' | |
WRITE (53, '(a)') ' int3=3' | |
WRITE (53, '(a)') '$END' | |
REWIND(53) | |
READ (53, temp) | |
CLOSE (53) | |
if (int1 /= 1 .or. int2 /= 2 .or. int3 /= 3) STOP 1 | |
END PROGRAM |