Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
pr77632_1.f90
blob: 13fed5991a61e731fe7a2503135e4b183f5ef77f [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
program foo
implicit
none
real
,
target
::
a
real
,
pointer
::
b
=>
a
if
(
associated
(
b
,
a
)
.
eqv
.
.
false
.)
stop
1
end
program foo