diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2017-05-15 23:48:39 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2017-05-15 23:48:39 +0000 |
| commit | a5768d38a66fc4136208bc8442a4118df2bd588f (patch) | |
| tree | aae6a5d219e2a2328d5b0eca6f9178cbe3e6fd86 /gcc | |
| parent | b2954e124bc411b0b9d8f5f7b4fe2e50f241bbd0 (diff) | |
| download | gcc-a5768d38a66fc4136208bc8442a4118df2bd588f.zip gcc-a5768d38a66fc4136208bc8442a4118df2bd588f.tar.gz gcc-a5768d38a66fc4136208bc8442a4118df2bd588f.tar.bz2 | |
re PR libfortran/80727 (Crash of runtime gfortran library during integer transformation)
2017-05-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/80727
* transfer.c (read_sf_internal): Remove bogus code to detect EOR.
(read_block_form): For internal units, generate EOR if no more
bytes left in unit and we are trying to read with ADVANCE='NO'.
* gfortran.dg/read_3.f90: New test.
From-SVN: r248080
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/read_3.f90 | 13 |
2 files changed, 18 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a898522..1aceb81 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2017-05-15 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libgfortran/80727 + * gfortran.dg/read_3.f90: New test. + 2017-05-15 Nathan Sidwell <nathan@acm.org> PR c++/79369 diff --git a/gcc/testsuite/gfortran.dg/read_3.f90 b/gcc/testsuite/gfortran.dg/read_3.f90 new file mode 100644 index 0000000..630666e --- /dev/null +++ b/gcc/testsuite/gfortran.dg/read_3.f90 @@ -0,0 +1,13 @@ +! { dg-do run } +! PR80727 Crash of runtime gfortran library during integer transformation +! Note: before the patch this was giving an incorrect EOR error on READ. +program gfortran_710_io_bug + character str*4 + integer(4) :: i4 + str ='' + i = 256 + write(str,fmt='(a)') i + i = 0 + read ( unit=str(1:4), fmt='(a)' ) i4 + if (i4.ne.256) call abort +end program gfortran_710_io_bug |