2 ! PR42008 Wrongly rejected derived types with default initializers
9 type(ilist), pointer :: next => null() ! Valid
18 pure subroutine psub()
20 type(ilist), pointer :: next
21 integer, pointer :: p => null() ! Valid
24 type(ilist) :: var ! Valid
32 type(ilist), pointer :: next => null() ! Valid
36 pure subroutine psub()
37 type(ilist) :: var ! Valid
42 integer,pointer :: p => null() !{ dg-error "not allowed in a PURE procedure" }
46 ! { dg-final { cleanup-modules "mod_xyz mod_xyz2 mod_xyz3" } }