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