aboutsummaryrefslogtreecommitdiff
path: root/tests/iii/extern-struct-rejected/program.cps
diff options
context:
space:
mode:
Diffstat (limited to 'tests/iii/extern-struct-rejected/program.cps')
-rw-r--r--tests/iii/extern-struct-rejected/program.cps2
1 files changed, 2 insertions, 0 deletions
diff --git a/tests/iii/extern-struct-rejected/program.cps b/tests/iii/extern-struct-rejected/program.cps
index ced6fee..80f965f 100644
--- a/tests/iii/extern-struct-rejected/program.cps
+++ b/tests/iii/extern-struct-rejected/program.cps
@@ -11,3 +11,5 @@ EXTERN "C" EXTERN_FUNCTION atoi(C_STRING) RETURNS Person
EXTERN "C" EXTERN_FUNCTION printf(C_STRING, ...) RETURNS C_INT
DECLARE Someone : Person
OUTPUT printf((C_STRING)"%d", Someone)
+TYPE PInteger = ^INTEGER
+EXTERN "C" EXTERN_PROCEDURE srand(PInteger)