2 ! { dg-options "-std=f2003 -fall-intrinsics" }
11 integer, pointer :: point
14 type(myT), pointer :: t
27 integer, pointer,intent(in) :: p
28 type(myT), pointer, intent(in) :: t
29 integer, pointer :: tmp
30 if(.not.associated(p)) return
31 if(p /= 33) call abort()
33 if (associated(t)) then
34 ! allocating is valid as we don't change the status
35 ! of the pointer "t", only of it's target
37 if(.not.associated(t%point)) call abort()
38 if(t%point /= 55) call abort()
43 t%point => null(t%point)
47 if(t%point /= 27) call abort()
48 if(t%x /= -15) call abort()
50 if(t%x /= 32) call abort()
51 if(t%point /= -98) call abort()
54 if(p /= 5) call abort()
57 integer, intent(out) :: v
61 type(myT), intent(inout) :: comp
62 if(comp%x /= -15) call abort()
63 !if(comp%point /= 27) call abort()
67 subroutine nonpointer(t)
68 type(myT), intent(in) :: t
70 end subroutine nonpointer