URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [actual_array_interface_1.f90] - Rev 516
Compare with Previous | Blame | View Log
! { 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