[SWEXA.WRK]SWEXA_TST_EXH.C

/*
**++
**
**  Program:
**      SWEXA_TST_EXH
**
**  Purpose:
**      Test the SysWorks exception handler
**
**  Copyright:
**      Copyright © 1996 Corpita Pty Ltd
**      15 Bedford Street, Collingwood 3066, Australia
**
**  History:
**      12-Sep-1996 by Simon L. Jackson
**          Initial version
**--
*/

#pragma module swexa_txt_exh

#include "swrk_sft_dir:swrk_base"

main ()
 {
    int *ptr = 0;
    swrk_establish ();
    *ptr = 0;
    return ( 1 );
 }