3 ! PR 39630: [F03] Procedure Pointer Components with PASS
5 ! found at http://groups.google.com/group/comp.lang.fortran/browse_thread/thread/4a827e8ced6efb0f/884b9eca6d7e6742
11 procedure(set_int_value), pointer :: seti
15 subroutine set_int_value(this,i)
17 class(mytype), intent(inout) :: this
18 integer, intent(in) :: i
19 end subroutine set_int_value
24 subroutine seti_proc(this,i)
25 class(mytype), intent(inout) :: this
26 integer, intent(in) :: i
28 end subroutine seti_proc
43 if (m%i/=6) call abort()