https://gcc.gnu.org/bugzilla/show_bug.cgi?id=122556
kargls at comcast dot net changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |kargls at comcast dot net,
| |pault at gcc dot gnu.org
--- Comment #1 from kargls at comcast dot net ---
Reduced testcase.
module m11
real, target :: trgt
type :: t(ln)
integer, len :: ln
real, pointer :: pntr => trgt
end type
contains
subroutine s1(x)
type(t(*)), intent(in) :: x
end subroutine
end module
If the type is not parameterized, then the code compiles.
That is,
module m11
real, target :: trgt
type :: t
real, pointer :: pntr => trgt
end type
contains
subroutine s1(x)
type(t), intent(in) :: x
end subroutine
end module
compiles.
