Sign in
gnu
/
gcc
/
fba228e259dd5112851527f2dbb62c5601100985
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
lto
/
pr41576_1.f90
blob: 61d44516cc0a53a88ef427e4808a96b231c93e13 [
file
] [
log
] [
blame
]
program test
common
/
bar
/
c
,
d
integer
(
4
)
::
c
,
d
interface
subroutine foo
()
end
subroutine
end
interface
call foo
if
(
c
/=
1
.
or
.
d
/=
2
)
STOP
1
end
program test
