mirror of
https://github.com/byteworksinc/ORCA-C.git
synced 2024-06-26 08:29:28 +00:00
1 line
913 B
Plaintext
1 line
913 B
Plaintext
|
/* Conformance Test 21.4.0.1: Verification of setjmp, longjmp functions */
#include <setjmp.h>
jmp_buf env; /* setjmp, longjmp environment array */
/*****************************************************************************/
void F1 (char ch)
{
if (ch == 'a')
longjmp (env, 0); /* not allowed to do this -- should */
else /* cause setjmp to return a 1 */
longjmp (env, 2);
}
/*****************************************************************************/
main ()
{
int i;
i = setjmp (env); /* initialize env to main's environment */
if (i == 0)
F1 ('a');
else if (i == 1) /* check second return from setjmp */
{
printf ("Passed Conformance Test 21.4.0.1\n");
return;
}
else
printf ("Failed Conformance Test 21.4.0.1\n");
}
|