https://gcc.gnu.org/bugzilla/show_bug.cgi?id=104553
G. Steinmetz <gs...@t-online.de> changed:
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |ice-on-invalid-code
--- Comment #1 from G. Steinmetz <gs...@t-online.de> ---
OK with corrected typo :
$ cat z2.f90
module m
type t
contains
procedure :: g => h
end type
contains
subroutine h(a, b)
class(t) :: a
class(t) :: b
end
subroutine s(c, d)
class(t) :: c
class(t) :: d(:)
call c%g(d(1))
end
end
