repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Add qdf24xx base tuning support.
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
parens_7.f90
blob
5060e7a80d27efbfc4c64a2c2057b4d68fb7cd3b
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
6
7
program
test
8
print
*,
test4
()
9
contains
10
11
integer
(
kind
=(
int_t
))
function
test4
()
! This failed before patch
12
use
m
13
test4
=
345
14
end function
test4
15
16
17
end program
test