blob: 1961b11b13b4d8cc1e00b846a7527a3c631385e0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
! { 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) call abort()
END PROGRAM
|
