Merge branch 'mppa-cse2' of gricad-gitlab.univ-grenoble-alpes.fr:sixcy/CompCert into mppa-work

1 files changed, 55 insertions, 0 deletions

diff --git a/test/monniaux/longjmp/example.c b/test/monniaux/longjmp/example.c
new file mode 100644
index 00000000..d3debfaf
--- /dev/null
+++ b/test/monniaux/longjmp/example.c
@@ -0,0 +1,55 @@
+#include <stdio.h>
+#include <setjmp.h>
+
+jmp_buf bufferA, bufferB;
+
+void routineB(); // forward declaration 
+
+void routineA()
+{
+    int r ;
+
+    printf("(A1)\n");
+
+    r = setjmp(bufferA);
+    if (r == 0) routineB();
+
+    printf("(A2) r=%d\n",r);
+
+    r = setjmp(bufferA);
+    if (r == 0) longjmp(bufferB, 20001);
+
+    printf("(A3) r=%d\n",r);
+
+    r = setjmp(bufferA);
+    if (r == 0) longjmp(bufferB, 20002);
+
+    printf("(A4) r=%d\n",r);
+}
+
+void routineB()
+{
+    int r;
+
+    printf("(B1)\n");
+
+    r = setjmp(bufferB);
+    if (r == 0) longjmp(bufferA, 10001);
+
+    printf("(B2) r=%d\n", r);
+
+    r = setjmp(bufferB);
+    if (r == 0) longjmp(bufferA, 10002);
+
+    printf("(B3) r=%d\n", r);
+
+    r = setjmp(bufferB);
+    if (r == 0) longjmp(bufferA, 10003);
+}
+
+
+int main(int argc, char **argv) 
+{
+    routineA();
+    return 0;
+}