diff options
Diffstat (limited to 'gcc-4.8/gcc/testsuite/gfortran.dg/namelist_80.f90')
-rw-r--r-- | gcc-4.8/gcc/testsuite/gfortran.dg/namelist_80.f90 | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/gcc-4.8/gcc/testsuite/gfortran.dg/namelist_80.f90 b/gcc-4.8/gcc/testsuite/gfortran.dg/namelist_80.f90 new file mode 100644 index 000000000..1961b11b1 --- /dev/null +++ b/gcc-4.8/gcc/testsuite/gfortran.dg/namelist_80.f90 @@ -0,0 +1,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 |