Lines Matching defs:step
9 #define TEST_LOOP(var,from,to,step,total,test,final) \
10 count = 0 ; do var = from, to, step ; count = count + 1 ; end do ; \
12 if (test (from, to, step, final) /= total) call abort
77 function test_i1 (from, to, step, final) result(res)
78 integer(kind=1), intent(in) :: from, to, step, final
83 do i = from, to, step
89 function test_i (from, to, step, final) result(res)
90 integer, intent(in) :: from, to, step, final
95 do i = from, to, step
101 function test_r (from, to, step, final) result(res)
102 real, intent(in) :: from, to, step, final
107 do i = from, to, step