Sign in
gnu
/
gcc
/
refs/heads/devel/omp/gcc-9
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr77959.f90
blob: 36754a0bd32320ba2909da9e6e05d668a81d60df [
file
] [
log
] [
blame
]
!
PR middle
-
end
/
77959
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-O2"
}
program pr77959
interface
subroutine foo
(
x
)
!
{
dg
-
warning
"Type mismatch in argument"
}
real
::
x
end
end
interface
call foo
(
1.0
)
end
subroutine foo
(
x
)
complex
::
x
x
=
x
+
1
end