Lines Matching defs:INCREMENT

158 RECURSIVE FUNCTION RECURSIVE_DECLARE_TARGET(INCREMENT) RESULT(K)
160     INTEGER :: INCREMENT, K
161     IF (INCREMENT == 10) THEN
162         K = INCREMENT
164         K = RECURSIVE_DECLARE_TARGET(INCREMENT + 1)
170 RECURSIVE FUNCTION RECURSIVE_DECLARE_TARGET_ENTER(INCREMENT) RESULT(K)
172     INTEGER :: INCREMENT, K
173     IF (INCREMENT == 10) THEN
174         K = INCREMENT
176         K = RECURSIVE_DECLARE_TARGET_ENTER(INCREMENT + 1)