!RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic -Werror
type t
  real v
  integer, pointer :: p
end type
type(t), allocatable :: a
!WARNING: Structure constructor lacks a value for pointer component 'p', NULL() assumed [-Wdefault-struct-constructor-null-pointer]
allocate(a, source=t(v=3.3))
end