From dedcb60ae4db722cbe4b1c0e70b1d3aa99f2aefd Mon Sep 17 00:00:00 2001 From: Ryszard Glab Date: Sat, 19 Jun 1999 00:05:08 +0000 Subject: [PATCH] Removing next.prg -19990619:00:52 --- harbour/tests/working/next.prg | 34 ---------------------------------- 1 file changed, 34 deletions(-) delete mode 100644 harbour/tests/working/next.prg diff --git a/harbour/tests/working/next.prg b/harbour/tests/working/next.prg deleted file mode 100644 index 80760de3ce..0000000000 --- a/harbour/tests/working/next.prg +++ /dev/null @@ -1,34 +0,0 @@ -//NOTEST -// Using nExt variable name -//DO NOT RUN THIS PROGRAM - ITS PURPOSE IS ONLY TO CHECK THE SYNTAX! - -Function Main() -Local nExt, nExt7, nExtNEXT - - For NExt := 1 To 10 - - OutStd( nExT ) // Actually this needs to use str() - - Next /*next*/ nExt //next -//NEXT - - nExt := 10 //next - - nExt++ /*n_ext*/ //--- - --nExt /*next*/ - nExt7 :=7 - nExtNEXT := nExt //next - - nExt[ nExt ] := NEXT( nExt[nExt+nExt] * nExt *(nExt+nExt*5) ) - -Return( nExt * /*next*/ nExt ) - -FUNCTION NeXT( nExt /*next next*/ ) - IF( nExt > nExt+4 ) - nExt =nExt +nExt * 5 - ELSEIF( nExt > 0 ) - nExt = nExt * 6 + nExt - ELSE - nExt +=5 - ENDIF -RETURN nExt * nExt