Lines Matching refs:intp
161 integer(kind=c_int), pointer :: intp(:) variable
165 nullify(intp)
166 irnk = rank_p(intp)
168 if (irnk /= rank(intp)) stop 2
174 allocate(intp(siz))
175 irnk = rank_p(intp)
177 if (irnk /= rank(intp)) stop 6
178 irnk = rank_o(intp)
180 if (irnk /= rank(intp)) stop 8
181 deallocate(intp)
182 nullify(intp)