1! { dg-do compile } 2! PR34432 integer(kind=init_expression) function is rejected 3module m 4 integer, parameter :: int_t = 4 5end module m 6 7program test 8 print *, test4() 9contains 10 11integer(kind=(int_t)) function test4() ! This failed before patch 12 use m 13 test4 = 345 14end function test4 15 16 17end program test 18