gcc/testsuite/gfortran.dg/bounds_check_13.f

   1 ! { dg-do compile }
   2 ! Tests the fix for PR34945, in which the lbound = KIND(YDA) was not resolved
   3 ! in time to set the size of TEST_ARRAY to zero.
   4 !
   5 ! Contributed by Dick Hendrickson <dick.hendrickson@gmail.com>
   6 !
   7       SUBROUTINE VF0009(IDA1,IDA2,YDA,HDA)
   8       INTEGER(4) IDA1(4)
   9       INTEGER(4) IDA2(4)
  10       COMPLEX(8) YDA(2)
  11       INTEGER(4) HDA(3)
  12 !  I N I T I A L I Z A T I O N  S E C T I O N
  13       COMPLEX(KIND=4) :: TEST_ARRAY
  14      $(  4:5,
  15      $   KIND(YDA):5,
  16      $   4:5,
  17      $   4:5  )
  18 !  T E S T  S T A T E M E N T S
  19        IDA1(1:4) = LBOUND(TEST_ARRAY)
  20       END SUBROUTINE
  21