https://gcc.gnu.org/bugzilla/show_bug.cgi?id=102332
G. Steinmetz <gs...@t-online.de> changed:
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |ice-on-invalid-code
--- Comment #1 from G. Steinmetz <gs...@t-online.de> ---
And also :
$ cat zz1.f90
program p
type t
real :: a, b
end type
class(t) :: x
select type (y => x)
class is (t)
y%a = 0
end select
end
$ cat zz4.f90
program p
type t
real :: a, b
end type
class(t) :: x
select type (y => x)
class default
y%a = 0
end select
end
$ cat z3.f90
program p
type t
real :: a, b
end type
class(t) :: x
select type (y => x)
type default
y%a = 0
end select
end
