 $!---------------------------------------------------------------------
 $ orig_def = f$environment("DEFAULT")
 $ on error then goto common_exit
+$ on severe_error then goto common_exit
 $ on control_y then goto common_exit
 $!
 $ ctrl_y       = 1556

$         define/user/nolog plibsys 'objdir'PLIBSYS.EXE
$         define/user/nolog test_imgdir 'objdir'
$!
$         xrun := $test_imgdir:'next_test'_test.exe
$         if next_test .eqs. "plibraryloader"
$         then

$             'vo_c' "[FAIL] *** Test failed: ''next_test'"
$         endif
$!
$         set on
$!
$ run_loop_next:
$         test_counter = test_counter + 1
$         goto run_loop
