2 ! { dg-options "-fno-inline" }
6 ! Check that a non-pointer INTENT(IN) dummy
7 ! with pointer component is properly treated
11 integer, pointer :: point
17 if(t2%point /= 7) call abort()
20 if(t2%point /= 66) call abort()
22 subroutine nonpointer(t)
23 type(myT), intent(in) :: t
25 end subroutine nonpointer
26 subroutine nonpointer2(t)
27 class(myT), intent(in) :: t
29 end subroutine nonpointer2