OSDN Git Service

2013-04-03 Tobias Burnus <burnus@net-b.de>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / namelist_80.f90
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