diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-06-19 01:05:05 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-06-19 01:05:05 +0000 |
| commit | 53ff31ad042096177663d302b769d70e2f4f7d72 (patch) | |
| tree | 4567334fb25a2cb4069850ab3075e7bb3127ce16 /gcc | |
| parent | b9983d610a1d08f2acc105f15bd7dafe293104e4 (diff) | |
| download | gcc-53ff31ad042096177663d302b769d70e2f4f7d72.zip gcc-53ff31ad042096177663d302b769d70e2f4f7d72.tar.gz gcc-53ff31ad042096177663d302b769d70e2f4f7d72.tar.bz2 | |
re PR fortran/44477 (Sequential I/O with END FILE: File position should be at EoF)
2010-06-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/44477
* gfortran.dg/eof_3.f90
* gfortran.dg/endfile_2.f90
* gfortran.dg/endfile_4.f90
* gfortran.dg/endfile_3.f90
From-SVN: r161021
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/endfile_2.f90 | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/endfile_3.f90 | 9 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/endfile_4.f90 | 8 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/eof_3.f90 | 1 |
5 files changed, 27 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c425e3a..d5a648e 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,11 @@ +2010-06-18 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libfortran/44477 + * gfortran.dg/eof_3.f90 + * gfortran.dg/endfile_2.f90 + * gfortran.dg/endfile_4.f90 + * gfortran.dg/endfile_3.f90 + 2010-06-18 John David Anglin <dave.anglin@nrc-cnrc.gc.ca> PR c++/41090 diff --git a/gcc/testsuite/gfortran.dg/endfile_2.f90 b/gcc/testsuite/gfortran.dg/endfile_2.f90 index e91e80e..ee911e8 100644 --- a/gcc/testsuite/gfortran.dg/endfile_2.f90 +++ b/gcc/testsuite/gfortran.dg/endfile_2.f90 @@ -5,7 +5,7 @@ integer i endfile(8) rewind(8) - read(8,end=0023)i + read(8,*,end=0023)i call abort ! should never get here stop 0023 continue diff --git a/gcc/testsuite/gfortran.dg/endfile_3.f90 b/gcc/testsuite/gfortran.dg/endfile_3.f90 new file mode 100644 index 0000000..0c41314 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/endfile_3.f90 @@ -0,0 +1,9 @@ +! { dg-do run } +! pr44477 READ/WRITE not allowed after ENDFILE +!------------------------------------------- + open(10, form='formatted', & + action='write', position='rewind', status="scratch") + endfile(10) + write(10,'(a)') "aa" ! { dg-shouldfail "Cannot perform ENDFILE" } +end + diff --git a/gcc/testsuite/gfortran.dg/endfile_4.f90 b/gcc/testsuite/gfortran.dg/endfile_4.f90 new file mode 100644 index 0000000..a2462c9 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/endfile_4.f90 @@ -0,0 +1,8 @@ +! { dg-do run } +! pr44477 ENDFILE not allowed after ENDFILE +!------------------------------------------- + open(10, form='formatted', & + action='write', position='rewind', status="scratch") + endfile(10) + endfile(10) ! { dg-shouldfail "Cannot perform ENDFILE" } +end diff --git a/gcc/testsuite/gfortran.dg/eof_3.f90 b/gcc/testsuite/gfortran.dg/eof_3.f90 index 83d6529..f1d5098 100644 --- a/gcc/testsuite/gfortran.dg/eof_3.f90 +++ b/gcc/testsuite/gfortran.dg/eof_3.f90 @@ -4,5 +4,6 @@ program test open(unit=32,status="scratch",access="sequential",form="unformatted") read(32,end=100) 100 continue +backspace(32) write (32) end program test |