https://gcc.gnu.org/bugzilla/show_bug.cgi?id=103391
G. Steinmetz <gs...@t-online.de> changed:
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |ice-on-valid-code
--- Comment #1 from G. Steinmetz <gs...@t-online.de> ---
Compiles :
$ cat z2.f90
program p
type t
end type
type t2
type(t), pointer :: a(:)
end type
contains
function f(x)
class(t), intent(in), target :: x(:)
type(t2) :: f
f%a => x
end
end
