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
7 ! Contributed by Philip Mason <pmason@ricardo.com>
9 !---------------------------------
11 !---------------------------------
13 real, allocatable :: jack(:)
15 allocate(jack(10)); jack = 9.
20 !---------------------------------
22 !---------------------------------