1! Check that null initialization of pointer components works. 2! PR 15969 prompted these 3! the commented out tests are cases where we still fail 4program der_init_5 5 type t 6 type(t), pointer :: a => NULL() 7 real, pointer :: b => NULL() 8 character, pointer :: c => NULL() 9 integer, pointer, dimension(:) :: d => NULL() 10 end type t 11 type (t) :: p 12 if (associated(p%a)) STOP 1 13 if (associated(p%b)) STOP 2 14! if (associated(p%c)) STOP 3 15 if (associated(p%d)) STOP 4 16end 17