Lines Matching defs:test
4 subroutine test subroutine
5 interface
28 type :: dt0
31 type :: dt1
34 type :: dt2
37 type :: dt3
40 integer :: j local
41 type(dt0) :: dt0x
42 type(dt1) :: dt1x
43 type(dt2) :: dt2x
44 type(dt3) :: dt3x
45 integer, pointer :: ip0, ip1(:), ip2(:,:)
46 integer, allocatable :: ia0, ia1(:), ia2(:,:)
47 real, pointer :: rp0, rp1(:)
48 integer, parameter :: ip0r = rank(null(mold=ip0))
49 integer, parameter :: ip1r = rank(null(mold=ip1))
50 integer, parameter :: ip2r = rank(null(mold=ip2))
51 integer, parameter :: eight = ip0r + ip1r + ip2r + 5
52 real(kind=eight) :: r8check