From 612cf3f932934ba21479801dca37a3369dfde15b Mon Sep 17 00:00:00 2001 From: jvdelisle Date: Mon, 17 Apr 2006 02:37:15 +0000 Subject: [PATCH] 2006-04-16 Jerry DeLisle PR libgfortran/27138 * gfortran.dg/read_bad_advance.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@113000 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 5 ++++ gcc/testsuite/gfortran.dg/read_bad_advance.f90 | 32 ++++++++++++++++++++++++++ 2 files changed, 37 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/read_bad_advance.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 313a7fc..173395e 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2006-04-16 Jerry DeLisle + + PR libgfortran/27138 + * gfortran.dg/read_bad_advance.f90: New test. + 2006-04-16 Roger Sayle Dale Johannesen diff --git a/gcc/testsuite/gfortran.dg/read_bad_advance.f90 b/gcc/testsuite/gfortran.dg/read_bad_advance.f90 new file mode 100644 index 0000000..5b43cfe --- /dev/null +++ b/gcc/testsuite/gfortran.dg/read_bad_advance.f90 @@ -0,0 +1,32 @@ +! { dg-do run } +! PR27138 Failure to advance line on bad list directed read. +! Submitted by Jerry DeLisle + program test + implicit none + integer :: ntype = 55 + real :: rtype + complex :: ctype + logical :: ltype + OPEN (10) + write(10,*) "aaaa aaaa aaaa aaaa" + write(10,*) "bbbb bbbb bbbb bbbb" + write(10,*) "cccc cccc cccc cccc" + write(10,*) "dddd dddd dddd dddd" + write(10,*) " " + write(10,*) "1234 5678 9012 3456" + rewind(10) + READ (10,*,END=77,ERR=77) ntype + goto 99 + 77 READ (10,*,END=78,ERR=78) rtype + goto 99 + 78 READ (10,*,END=79,ERR=79) ctype + goto 99 + 79 READ (10,*,END=80,ERR=80) ltype + goto 99 + 80 READ (10,*,END=99,ERR=99) ntype + if (ntype.ne.1234) goto 99 + close(10, status="delete") + stop + 99 close(10, status="delete") + call abort() + end program test -- 2.7.4