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

gcc/testsuite/ChangeLog

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

gcc/testsuite/gfortran.dg/pr46588.f90

+! { 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