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.
5 ! Contributed by Dick Hendrickson <dick.hendrickson@gmail.com>
7 SUBROUTINE VF0009(IDA1,IDA2,YDA,HDA)
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
18 ! T E S T S T A T E M E N T S
19 IDA1(1:4) = LBOUND(TEST_ARRAY)