Lines Matching defs:test

4 subroutine test  subroutine
5   interface
33   type :: dt0
36   type :: dt1
39   type :: dt2
42   type :: dt3
45   integer :: j  local
46   type(dt0) :: dt0x
47   type(dt1) :: dt1x
48   type(dt2) :: dt2x
49   type(dt3) :: dt3x
50   integer, pointer :: ip0, ip1(:), ip2(:,:)
51   integer, allocatable :: ia0, ia1(:), ia2(:,:)
52   real, pointer :: rp0, rp1(:)
53   integer, parameter :: ip0r = rank(null(mold=ip0))
54   integer, parameter :: ip1r = rank(null(mold=ip1))
55   integer, parameter :: ip2r = rank(null(mold=ip2))
56   integer, parameter :: eight = ip0r + ip1r + ip2r + 5
57   real(kind=eight) :: r8check