blob: 040cc260b5dd8c9924cb66d7fb4c12bb2dc9da72 [file] [log] [blame]
! { dg-do compile }
!
! PR fortran/99651
!
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