aboutsummaryrefslogtreecommitdiff
path: root/tests/i/extern-cc-runtime/program.cps
diff options
context:
space:
mode:
Diffstat (limited to 'tests/i/extern-cc-runtime/program.cps')
-rw-r--r--tests/i/extern-cc-runtime/program.cps9
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/i/extern-cc-runtime/program.cps b/tests/i/extern-cc-runtime/program.cps
new file mode 100644
index 0000000..74d0386
--- /dev/null
+++ b/tests/i/extern-cc-runtime/program.cps
@@ -0,0 +1,9 @@
+INCLUDE_OBJ "runtime.o"
+EXTERN "C" EXTERN_FUNCTION string_length() RETURNS C_INT
+EXTERN "C" EXTERN_PROCEDURE string_throw()
+OUTPUT (INTEGER)string_length()
+TRY
+ CALL string_throw()
+CATCH
+ OUTPUT "caught C++"
+ENDTRY