Sign in
gnu
/
gcc
/
93ac832f1846e4867aa6537f76f510fab8e3e87d
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
coarray_ptr_comp_3.f08
blob: efdfb367040aae90807d329764ca7dc07994fbef [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-fcoarray=lib"
}
program ptr_comp
type t
integer
,
pointer
::
z
(:)
end
type
type
(
t
),
save
::
obj
[*]
integer
,
allocatable
,
target
::
i
(:)[:]
obj
%
z
=>
i
(:)[
4
]
!
{
dg
-
error
"shall not have a coindex"
}
end
program