30   subroutine proc1_p1(p)  argument
31     class(p1) :: p  local
34   subroutine aproc(p)  argument
35     class(p1) :: p  local
38   subroutine zproc(p)  argument
39     class(p1) :: p  local
42   subroutine proc1_p2(p)  argument
43     class(p2) :: p  local
46   subroutine aproc2(p)  argument
47     class(p2) :: p  local
50   subroutine aproc3(p)  argument
51     class(p3) :: p  local