From 82ca2a5146075d5ef502616c672f20d9893d976d Mon Sep 17 00:00:00 2001 From: Daniel Franke Date: Sun, 27 Jul 2008 12:32:14 -0400 Subject: [PATCH] re PR fortran/36724 (ICE: (character pointer targets substring)) 2008-07-27 Daniel Franke PR fortran/36724 * gfortran.dg/pointer_to_substring.f90: New test. From-SVN: r138190 --- gcc/testsuite/ChangeLog | 11 ++++++++--- gcc/testsuite/gfortran.dg/pointer_to_substring.f90 | 10 ++++++++++ 2 files changed, 18 insertions(+), 3 deletions(-) create mode 100644 gcc/testsuite/gfortran.dg/pointer_to_substring.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 7bdc31bbeaa..95b0cde4944 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,11 +1,16 @@ +2008-07-27 Daniel Franke + + PR fortran/36724 + * gfortran.dg/pointer_to_substring.f90: New test. + 2008-07-27 Tobias Burnus 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 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 00000000000..054a29d56bb --- /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 -- 2.30.2