16 lines
358 B
Fortran
16 lines
358 B
Fortran
! { 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 = 1
|
|
end function fun
|
|
end
|