Lines Matching defs:point
11 integer, pointer :: point
17 allocate(t%point)
18 t%point = 55
25 allocate(t2%point)
26 t2%point = 42
28 if(t2%point /= 7) call abort()
41 if(.not.associated(t%point)) call abort()
42 if(t%point /= 55) call abort()
43 nullify(t%point)
45 t%point => tmp
46 deallocate(t%point)
47 t%point => null(t%point)
49 allocate(t%point)
50 t%point = 27
51 if(t%point /= 27) call abort()
55 if(t%point /= -98) call abort()
67 if(comp%point /= 27) call abort()
69 comp%point = -98
74 if(t%point /= 42) call abort()
75 t%point = 7