diff options
| author | Daniel Franke <dfranke@gcc.gnu.org> | 2008-07-27 12:32:14 -0400 |
|---|---|---|
| committer | Daniel Franke <dfranke@gcc.gnu.org> | 2008-07-27 12:32:14 -0400 |
| commit | 82ca2a5146075d5ef502616c672f20d9893d976d (patch) | |
| tree | 3149fa2e53515daac4f353e6f7af79af99cf6d56 | |
| parent | 448083e540b08bda3c373cf8ac9d32b5ea5314e2 (diff) | |
| download | gcc-82ca2a5146075d5ef502616c672f20d9893d976d.zip gcc-82ca2a5146075d5ef502616c672f20d9893d976d.tar.gz gcc-82ca2a5146075d5ef502616c672f20d9893d976d.tar.bz2 | |
re PR fortran/36724 (ICE: (character pointer targets substring))
2008-07-27 Daniel Franke <franke.daniel@gmail.com>
PR fortran/36724
* gfortran.dg/pointer_to_substring.f90: New test.
From-SVN: r138190
| -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 |