https://gcc.gnu.org/bugzilla/show_bug.cgi?id=106944
G. Steinmetz <gs...@t-online.de> changed:
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |ice-on-valid-code
--- Comment #1 from G. Steinmetz <gs...@t-online.de> ---
Similar for these variants :
$ cat z3.f90
module m
type t(n)
integer, len :: n = 4
end type
contains
subroutine s(x)
type(t) :: x(..)
select rank (x)
end select
end
end
$ cat z4.f90
module m
type t(n)
integer, kind :: n = 4
end type
contains
subroutine s(x)
type(t) :: x(..)
select rank (x)
end select
end
end
