! { dg-do compile }! Tests the fix for PR24557 in which the return of a! temporary character(*) array would cause an ICE.!! Test case provided by Erik Edelmann <eedelmann@gcc.gnu.org>!character(4)::a(2)print*,fun(a)contains function fun(arg)character(*)::arg(10)integer::fun(size(arg))fun=1end function funend