gcc/testsuite/gfortran.dg/null_11.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/99651
   4 !
   5 module m
   6     type :: CHAR_STAR
   7       character(len=1),dimension(:),pointer :: ptr
   8     end type
   9     type(CHAR_STAR), parameter ::CHAR_STAR_NULL = CHAR_STAR(NULL())
  10 end module m
  11
  12 use m
  13 type typeNode
  14     type(typeNode),   pointer       :: Next => null()
  15 end type typeNode
  16 end