! Check that null initialization of pointer variable works. ! { dg-do run } program pointer_init_1 type t real x end type type(t), pointer :: a => NULL() real, pointer :: b => NULL() character, pointer :: c => NULL() integer, pointer, dimension(:) :: d => NULL() if (associated(a)) STOP 1 if (associated(b)) STOP 2 if (associated(c)) STOP 3 if (associated(d)) STOP 4 end