aboutsummaryrefslogtreecommitdiff
path: root/tests/i/underscore-identifiers/program.cps
diff options
context:
space:
mode:
Diffstat (limited to 'tests/i/underscore-identifiers/program.cps')
-rw-r--r--tests/i/underscore-identifiers/program.cps9
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/i/underscore-identifiers/program.cps b/tests/i/underscore-identifiers/program.cps
new file mode 100644
index 0000000..60d7b32
--- /dev/null
+++ b/tests/i/underscore-identifiers/program.cps
@@ -0,0 +1,9 @@
+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