Sign in
gnu
/
gcc
/
fba228e259dd5112851527f2dbb62c5601100985
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
cray_pointers_10.f90
blob: f673dbd4848b7338e3b2c80cc81d59aea59251e1 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
{
dg
-
options
"-fcray-pointer"
}
!
!
PR fortran
/
45187
!
module
foo
implicit
none
real
::
a
pointer
(
c_a
,
a
)
end
module
foo
program test
use
foo
real
::
z
c_a
=
loc
(
z
)
a
=
42
if
(
z
/=
42
)
STOP
1
end
program test