Sign in
gnu
/
gcc
/
f49e3d28be44179f07b8a06159139ce77096dda7
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr67219.f90
blob: 26d5f3f5caed248e805ac301e2530fc8fd2c71a1 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR
67149
-
this
used to
throw
a spurious error
.
function
foo
(
bar
)
integer
(
8
)
::
foo
integer
(
4
),
intent
(
in
)
::
bar
integer
(
4
),
parameter
::
huge_4
=
huge
(
0_4
)
foo
=
(
huge_4
-
int
(
bar
,
kind
=
8
))
end
function