From eef5de2707b8cf19f2fbd51990b3f384c6a63cef Mon Sep 17 00:00:00 2001 From: jvdelisle Date: Tue, 17 Jun 2008 04:18:11 +0000 Subject: [PATCH] 2008-06-16 Jerry DeLisle PR fortran/36546 * gfortran.dg: namelist_49.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@136860 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/namelist_49.f90 | 19 +++++++++++++++++++ 2 files changed, 24 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/namelist_49.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 613364dc098..4aec420c521 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2008-06-16 Jerry DeLisle + PR fortran/36546 + * gfortran.dg: namelist_49.f90: New test. + +2008-06-16 Jerry DeLisle + PR fortran/36544 * gfortran.dg/fseek.f90: Adjust test conditions for variable newline. diff --git a/gcc/testsuite/gfortran.dg/namelist_49.f90 b/gcc/testsuite/gfortran.dg/namelist_49.f90 new file mode 100644 index 00000000000..aec83eea965 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/namelist_49.f90 @@ -0,0 +1,19 @@ +! { dg-do run } +! { dg-options "-fbackslash" } +! PR36546 Namelist error with tab following a comma and newline + program check1 + real a,b,c + namelist/CASEDAT/A,B,C + open(1, status="scratch") + write(1,'(a)') "&CASEDAT" + write(1,'(a)') "\t\tA = 1.0,\t\tB = 2.0," + write(1,'(a)') "\t\tC = 3.0," + write(1,'(a)') " /" + rewind(1) + a = 0.0 + b = 0.0 + c = 0.0 + read(1,casedat) + if ((a.ne.1.0) .or. (b.ne.2.0) .or. (c.ne.3.0)) call abort + end + -- 2.11.4.GIT