28 lines
701 B
Fortran
28 lines
701 B
Fortran
! { dg-do compile }
|
|
! Tests the fix for PR29490, in which the creation of the
|
|
! interface expression for the first argument of the call to
|
|
! 'john' would cause an ICE because GFC_TYPE_ARRAY_LBOUND
|
|
! was NULL.
|
|
!
|
|
! Contributed by Philip Mason <pmason@ricardo.com>
|
|
!
|
|
!---------------------------------
|
|
program fred
|
|
!---------------------------------
|
|
real :: dezz(1:10)
|
|
real, allocatable :: jack(:)
|
|
!
|
|
allocate(jack(10)); jack = 9.
|
|
dezz = john(jack,1)
|
|
print*,'dezz = ',dezz
|
|
|
|
contains
|
|
!---------------------------------
|
|
function john(t,il)
|
|
!---------------------------------
|
|
real :: t(il:)
|
|
real :: john(1:10)
|
|
john = 10.
|
|
end function john
|
|
end
|