diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-08-29 19:26:47 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-08-29 19:26:47 +0000 |
| commit | c4aa078796bd9c7237e0ac5ea4ab7553106f199d (patch) | |
| tree | 98a5e7f47a887d71b7ce051eac4583deee5a6dac /gcc/testsuite/gfortran.dg/read_bad_advance.f90 | |
| parent | e34f5cd313173ac0144aeb70ab96e50fc36605ba (diff) | |
| download | gcc-c4aa078796bd9c7237e0ac5ea4ab7553106f199d.tar.gz | |
2009-08-29 Basile Starynkevitch <basile@starynkevitch.net>
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
Diffstat (limited to 'gcc/testsuite/gfortran.dg/read_bad_advance.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/read_bad_advance.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
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 <jvdelisle@gcc.gnu.org> 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 |