From c4aa078796bd9c7237e0ac5ea4ab7553106f199d Mon Sep 17 00:00:00 2001 From: bstarynk Date: Sat, 29 Aug 2009 19:26:47 +0000 Subject: 2009-08-29 Basile Starynkevitch MELT branch merged with trunk rev 151199 git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@151206 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/gfortran.dg/read_bad_advance.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'gcc/testsuite/gfortran.dg/read_bad_advance.f90') diff --git a/gcc/testsuite/gfortran.dg/read_bad_advance.f90 b/gcc/testsuite/gfortran.dg/read_bad_advance.f90 index 3ca4493c451..539ada496be 100644 --- a/gcc/testsuite/gfortran.dg/read_bad_advance.f90 +++ b/gcc/testsuite/gfortran.dg/read_bad_advance.f90 @@ -1,4 +1,4 @@ -! { dg-do run { target fd_truncate } } +! { dg-do run } ! PR27138 Failure to advance line on bad list directed read. ! Submitted by Jerry DeLisle program test @@ -7,7 +7,7 @@ real :: rtype complex :: ctype logical :: ltype - OPEN (10) + OPEN (10, status="scratch") write(10,*) "aaaa aaaa aaaa aaaa" write(10,*) "bbbb bbbb bbbb bbbb" write(10,*) "cccc cccc cccc cccc" @@ -25,8 +25,8 @@ goto 99 80 READ (10,*,END=99,ERR=99) ntype if (ntype.ne.1234) goto 99 - close(10, status="delete") + close(10) stop - 99 close(10, status="delete") + 99 close(10) call abort() end program test -- cgit v1.2.1