! Check that null initialization of pointer components works. | |
! PR 15969 prompted these | |
! the commented out tests are cases where we still fail | |
program 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 |