Sign in
gnu
/
gcc
/
f00b5710a30f22efc3171c393e56aeb335c3cd39
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr96086.f90
blob: b80967a7a07b1e8621a8b4070c1f54aaa85d2e11 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR fortran
/
96086
-
ICE
in
gfc_match_select_rank
,
at fortran
/
match
.
c
:
6645
subroutine s
class
(*)
::
x
(..)
!
{
dg
-
error
"Assumed-rank array"
}
select
rank
(
y
=>
x
)
!
{
dg
-
error
"CLASS variable"
}
end
select
end