blob: 759e3e780a7904d7d151d8c3c59ac1bf56940b40 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! { 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
|
