Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
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