1! { dg-do compile }
2! Tests the fix for PR29490, in which the creation of the
3! interface expression for the first argument of the call to
4! 'john' would cause an ICE because GFC_TYPE_ARRAY_LBOUND
5! was NULL.
6!
7! Contributed by Philip Mason <pmason@ricardo.com>
8!
9  !---------------------------------
10  program fred
11  !---------------------------------
12  real              :: dezz(1:10)
13  real, allocatable :: jack(:)
14  !
15  allocate(jack(10)); jack = 9.
16  dezz = john(jack,1)
17  print*,'dezz = ',dezz
18
19  contains
20    !---------------------------------
21    function john(t,il)
22    !---------------------------------
23    real  :: t(il:)
24    real  :: john(1:10)
25    john = 10.
26    end function john
27  end
28