Sign in
gnu
/
gcc
/
refs/heads/devel/omp/gcc-9
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr86322_2.f90
blob: fec17dbba60be7003cdd00e18224407455a4c5c0 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
program bar
type a
integer
::
i
end
type a
type b
type
(
a
),
pointer
::
j
end
type b
integer
,
target
,
save
::
k
=
42
type
(
b
)
x
data x
%
j
%
i
/
k
/
!
{
dg
-
error
"is not rightmost part-ref"
}
print
*,
x
%
j
%
i
end
program bar