Add qdf24xx base tuning support.
[official-gcc.git] / gcc / testsuite / gfortran.dg / parens_7.f90
blob5060e7a80d27efbfc4c64a2c2057b4d68fb7cd3b
1 ! { dg-do compile }
2 ! PR34432 integer(kind=init_expression) function is rejected
3 module m
4 integer, parameter :: int_t = 4
5 end module m
7 program test
8 print *, test4()
9 contains
11 integer(kind=(int_t)) function test4() ! This failed before patch
12 use m
13 test4 = 345
14 end function test4
17 end program test