Subversion Repositories openrisc_me

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

!

  !---------------------------------

  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