Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
alloc_comp_basics_7.f90
blob: 7229630216996d359cb1bc583b87df4e00ac9de0 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
!
PR
86888
:
[
F08
]
allocatable components of indirectly recursive type
!
!
Contributed
by
Janus
Weil
<
janus@gcc
.
gnu
.
org
>
type
::
s
type
(
t
),
allocatable
::
x
end
type
type
::
t
type
(
s
),
allocatable
::
y
end
type
end