aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.9/gcc/testsuite/gfortran.dg/actual_array_interface_1.f90
blob: bc020a3468a4c6ba590f1f7213e2b918dd7e1977 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
! { 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