Lines Matching refs:iarray
24 integer, allocatable :: iarray(:) local
41 allocate(iarray(10))
44 iarray(i) = i
47 view = root%create_array_view("iarray", iarray)
55 call assert_equals(num_elements, size(iarray))
62 call assert_true(extents(1) == size(iarray, 1))
66 call assert_true(all(iarray.eq.ipointer))
70 deallocate(iarray)
77 integer, allocatable :: iarray(:,:,:) local
94 allocate(iarray(2,3,4))
99 iarray(i,j,k) = i*100 + j*1-0 + k
104 view = root%create_array_view("iarray", iarray)
112 call assert_equals(num_elements, size(iarray))
119 call assert_true(extents(1) == size(iarray, 1))
120 call assert_true(extents(2) == size(iarray, 2))
121 call assert_true(extents(3) == size(iarray, 3))
125 call assert_true(all(iarray.eq.ipointer))
129 deallocate(iarray)
138 integer :: iarray(10) local
154 iarray(i) = i
157 view = root%create_array_view("iarray", iarray)
167 call assert_true(all(iarray.eq.ipointer))