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