https://gcc.gnu.org/bugzilla/show_bug.cgi?id=99651
Tobias Burnus <burnus at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |rejects-valid
CC| |burnus at gcc dot gnu.org
--- Comment #1 from Tobias Burnus <burnus at gcc dot gnu.org> ---
Reduced example:
module m
type :: CHAR_STAR
character(len=1),dimension(:),pointer :: ptr
end type
type(CHAR_STAR), parameter ::CHAR_STAR_NULL = CHAR_STAR(NULL())
end module m
use m
type typeNode
type(typeNode), pointer :: Next => null()
end type typeNode
end