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