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