From: Daniel Franke <dfranke@gcc.gnu.org>
Date: Sun, 27 Jul 2008 16:32:14 +0000 (-0400)
Subject: re PR fortran/36724 (ICE: (character pointer targets substring))
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=82ca2a5146075d5ef502616c672f20d9893d976d;p=gcc.git

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

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