! Check that null initialization of pointer components works.! PR 15969 prompted these! the commented out tests are cases where we still failprogram der_init_5  type t     type(t), pointer :: a => NULL()     real, pointer :: b => NULL()     character, pointer :: c => NULL()     integer, pointer, dimension(:) :: d => NULL()  end type t  type (t) :: p  if (associated(p%a)) call abort()  if (associated(p%b)) call abort()!  if (associated(p%c)) call abort()  if (associated(p%d)) call abort()end