diff options
| -rw-r--r-- | gcc/testsuite/ChangeLog | 11 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pointer_to_substring.f90 | 10 |
2 files changed, 18 insertions, 3 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 7bdc31b..95b0cde 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,11 +1,16 @@ +2008-07-27 Daniel Franke <franke.daniel@gmail.com> + + PR fortran/36724 + * gfortran.dg/pointer_to_substring.f90: New test. + 2008-07-27 Tobias Burnus <burnus@net-b.de> PR fortran/36132 PR fortran/29952 PR fortran/36909 - gfortran.dg/internal_pack_4.f90: New. - gfortran.dg/internal_pack_5.f90: New. - gfortran.dg/array_temporaries_2.f90: New. + * gfortran.dg/internal_pack_4.f90: New. + * gfortran.dg/internal_pack_5.f90: New. + * gfortran.dg/array_temporaries_2.f90: New. 2008-07-26 Thomas Koenig <tkoenig@gcc.gnu.org> diff --git a/gcc/testsuite/gfortran.dg/pointer_to_substring.f90 b/gcc/testsuite/gfortran.dg/pointer_to_substring.f90 new file mode 100644 index 0000000..054a29d --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pointer_to_substring.f90 @@ -0,0 +1,10 @@ +! { dg-do compile } +! PR36724 - ICE on pointer to substring +! testcase contributed by Loukas Peristeras. + + character(LEN=132), target :: line + character(LEN=1), pointer :: t + + read(*,'(A)') line + t=>line(1:1) +end |