https://gcc.gnu.org/bugzilla/show_bug.cgi?id=104625
G. Steinmetz <gs...@t-online.de> changed:
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |ice-on-invalid-code
--- Comment #1 from G. Steinmetz <gs...@t-online.de> ---
For comparison :
$ cat z2.f90
program p
type t
integer :: a
end type
contains
subroutine s(x)
class(t) :: x(..)
select rank (y => x)
rank (1)
select type (z => y)
type is (t)
end select
end select
end
end
$ gfortran-12-20220220 -c z2.f90
$
