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