gcc/testsuite/gfortran.dg/actual_array_interface_1.f90

   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