Subversion Repositories openrisc

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

!

  character(4) :: a(2)

  print *, fun (a)

contains

  function fun (arg)

    character (*) :: arg (10)

    integer :: fun(size(arg))

    fun = 1

  end function fun

end