BEGIN
INT _errorCode
TEXT _function
RECORD NOALIAS (SD.EDA_CompilationErrors) _errors
REDIM _errors[0]
_function := "VEKTOR _v;" + %Chr(10)
_function := _function + "INT _i;" + %Chr(10)
_function := _function + "%CreateVektor(_v, 10);" + %Chr(10)
_function := _function + "FOR _i = 1 TO 10 LOOP" + %Chr(10)
_function := _function + " IF _i <= 5 THEN" + %Chr(10)
_function := _function + " _v[_i] := 1.0;" + %Chr(10)
_function := _function + " ELSE" + %Chr(10)
_function := _function + " _v[_i] := 10 / _i;" + %Chr(10)
_function := _function + " END IF;" + %Chr(10)
_function := _function + "END LOOP;" + %Chr(10)
_function := _function + "RETURN _v;"
CALL %EDA_CheckFunction(_function, _errors, _errorCode)
IF _errorCode != 0 THEN
RETURN
ENDIF
END |