diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2015-04-21 16:33:27 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2015-04-21 16:33:27 +0000 |
| commit | 3007f7e40f7d680772ea5e69f04169ec09b56eb1 (patch) | |
| tree | a8d2e150f66932f0bc938232803451f6c19177fb | |
| parent | b45fe62d455e4991fb6de142d8cc19baed855fa3 (diff) | |
| download | gcc-3007f7e40f7d680772ea5e69f04169ec09b56eb1.zip gcc-3007f7e40f7d680772ea5e69f04169ec09b56eb1.tar.gz gcc-3007f7e40f7d680772ea5e69f04169ec09b56eb1.tar.bz2 | |
re PR fortran/56743 (Namelist bug with comment and no blank)
2015-04-21 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/56743
* gfortran.dg/namelist_87.f90: New test.
From-SVN: r222272
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_87.f90 | 62 |
2 files changed, 67 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c031a3a..203d746 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2015-04-21 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libgfortran/56743 + * gfortran.dg/namelist_87.f90: New test. + 2015-04-21 Kyrylo Tkachov <kyrylo.tkachov@arm.com> * gcc.target/aarch64/mult-synth_1.c: New test. diff --git a/gcc/testsuite/gfortran.dg/namelist_87.f90 b/gcc/testsuite/gfortran.dg/namelist_87.f90 new file mode 100644 index 0000000..21822d9 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/namelist_87.f90 @@ -0,0 +1,62 @@ +! { dg-do run } +! +! PR fortran/56743 +! +! Contributed by Kai Gallmeister +! +! Note that Fortran 2008 (Section 10.11.3.6) requires that there is +! a value separator between the value and the "!". Thus, all examples +! in this file are invalid; they should either be accepted as vendor +! extension or lead to a run-time error (iostat /=0). +! +! For the c1 and c2 character example, please note that the Fortran +! standard (F2008, 10.11.3.3) requires delimiters; accepting +! a single word (in spirit of list-directed I/O) would be possible +! as vendor extension. But the current run-time failure is fine as well. +! +! Note: After fixing this, warning or error is given with -pedantic -std=xxx +implicit none +integer :: i = -1 +real :: r1 = -2 +real :: r2 = -3 +real :: r3 = -4 +real :: r4 = -5 +real :: r5 = -6 +complex :: c = (-7,-7) +logical :: ll = .false. +character :: c1 = 'X' +character(3) :: c2 = 'YYY' +character(3) :: c3 = 'ZZZ' +namelist /nml/ i, r1,r2,r3,r4,r5,c,ll,c1,c2,c3 + +open (99, file='nml.dat', status="replace") +write(99,*) "&nml" +write(99,*) " i=42!11" ! Fixed BUG: wrong result: Unmodified, no error +write(99,*) " r1=43!11" ! Fixed BUG: wrong result: Unmodified, no error +write(99,*) " r2=43.!11" ! Fixed BUG: wrong result: Unmodified, no error +write(99,*) " r3=inf!11" ! OK: run-time error (Cannot match namelist object) +write(99,*) " r4=NaN(0x33)!11" ! OK: run-time error (Cannot match namelist object) +write(99,*) " r5=3.e5!11" ! Fixed BUG: wrong result: Unmodified, no error +write(99,*) " c=(4,2)!11" ! OK: value accepted as vendor extension +write(99,*) " ll=.true.!11" ! OK: value accepted as vendor extension +write(99,*) " c1='a'!11" ! OK: without quotes, run-time error (Cannot match namelist object) +write(99,*) " c2='bc'!11" ! OK: without quotes, run-time error (Cannot match namelist object) +write(99,*) " c3='ax'!11" ! OK: without quotes, run-time error (Cannot match namelist object) +write(99,*) "/" + +rewind(99) +read (99, nml=nml) +!write (*, nml=nml) +close (99, status="delete") + + if (r1 /= 43) call abort () + if (r2 /= 43) call abort () + if (r3 /= r3 .or. r3 <= huge(r3)) call abort () + if (r4 == r4) call abort () + if (r5 /= 300000) call abort () + if (c /= cmplx(4,2)) call abort () + if (.not. ll) call abort () + if (c1 /= "a") call abort () + if (c2 /= "bc") call abort () + if (c3 /= "ax") call abort () +end |