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
22