program.cps « underscore-identifiers « i « tests - cie-pseudocode-compiler.git - Unnamed repository; edit this file 'description' to name the repository.

about summary refs log tree commit diff

path: root/tests/i/underscore-identifiers/program.cps

blob: 60d7b32b51790f176a67d1aa7d51f980716914be (plain)


CLASS _EXP_FOO
    _Value : INTEGER
ENDCLASS
FUNCTION _Read(_Arg : INTEGER) RETURNS INTEGER
    RETURN _Arg + 1
ENDFUNCTION
DECLARE _X : _EXP_FOO
_X._Value <- _Read(41)
OUTPUT _X._Value