3 ! PR 39630: [F03] Procedure Pointer Components with PASS
5 ! taken from "Fortran 95/2003 explained" (Metcalf, Reid, Cohen, 2004)
8 procedure(obp), pointer, pass(x) :: p
28 subroutine my_obp_sub(w,x)
31 if (x%name/="doodoo") call abort()
32 if (w/=32) call abort()