re PR fortran/46588 (ICE with assumed character length function)

2015-10-30  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/46588
	* gfortran.dg/pr46588.f90: New test.

From-SVN: r229606

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 32c6a9047706779c71506163537c05c49771dedd..a82f4cb2f5ebdc1cb21959494f7e19dacfc0c190 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2015-10-30  Steven G. Kargl  <kargl@gcc.gnu.org>
+
+       PR fortran/46588
+       * gfortran.dg/pr46588.f90: New test.
+
 2015-10-30  Evgeny Stupachenko  <evstupac@gmail.com>
 
        * gcc.dg/mvc1.c: New test for multiple targets cloning.
@@ -12,7 +17,7 @@
        * g++.dg/ext/mvc3.C: Ditto.
        * g++.dg/ext/mvc4.C: Ditto.
 
-2015-10-15  Steven G. Kargl  <kargl@gcc.gnu.org>
+2015-10-30  Steven G. Kargl  <kargl@gcc.gnu.org>
 
        PR fortran/51993
        * gfortran.dg/pr51993.f90: New test.

diff --git a/gcc/testsuite/gfortran.dg/pr46588.f90 b/gcc/testsuite/gfortran.dg/pr46588.f90
new file mode 100644 (file)
index 0000000..420fb4b
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr46588.f90
@@ -0,0 +1,21 @@
+! { dg-do run }
+! { dg-options "-std=gnu" }
+! PR fortran/46588
+! Original code contributed by Oleh Steblev <oleh dot steblev at gmail dot com>
+!
+! Issue appears to be fixed by PR 67805/68108
+function aufun(pm)
+   character(len = *) pm
+   character(len = *) aufun
+   character(len = len(aufun)) temp 
+   temp = pm 
+   aufun = 'Oh' // trim(temp)
+end function aufun
+
+program ds
+   implicit none
+   character(len = 4) :: ins = ' no!'
+   character(len = 20) st, aufun 
+   st = aufun(ins)
+   if (trim(st) /= 'Oh no!') call abort
+end