Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
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
