diff options
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 |