4 subroutine test  subroutine
5   interface
36   type :: dt0
40   type :: dt1
43   type :: dt2
46   type :: dt3
49   type :: dt4
52   type, extends(dt4) :: dt5
54   integer :: j  local
55   type(dt0) :: dt0x
56   type(dt1) :: dt1x
57   type(dt2) :: dt2x
58   type(dt3) :: dt3x
59   type(dt4) :: dt4x
60   integer, pointer :: ip0, ip1(:), ip2(:,:)
61   integer, allocatable :: ia0, ia1(:), ia2(:,:)
62   real, pointer :: rp0, rp1(:)
63   integer, parameter :: ip0r = rank(null(mold=ip0))
64   integer, parameter :: ip1r = rank(null(mold=ip1))
65   integer, parameter :: ip2r = rank(null(mold=ip2))
66   integer, parameter :: eight = ip0r + ip1r + ip2r + 5
67   real(kind=eight) :: r8check
68   logical, pointer :: lp
69   type(dt4), pointer :: dt4p
70   type(dt5), pointer :: dt5p
157   subroutine test(ar)  subroutine
158     real, pointer :: ar(..)