Sign in
gnu
/
gcc
/
33fdbbe4ce6055eb858096d01720ccf94aa854ec
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr98284.f90
blob: aa4b95c667c25e2e1b8c93240001c23ae00ca714 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR fortran
/
98284
-
ICE
in
get_array_index
program p
implicit
none
type t
integer
,
allocatable
::
h
(:)
end
type t
type
(
t
)
::
u
integer
::
i
data
(
u
%
h
(
i
),
i
=
1
,
8
)
/
8
*
1
/
!
{
dg
-
error
"cannot have the ALLOCATABLE attribute"
}
end