Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
gm2
/
isolib
/
run
/
pass
/
exceptiontest.mod
blob: 86d6a48a2afe91f5d8f66f164b6783a828b65f92 [
file
] [
log
] [
blame
]
MODULE exceptiontest
;
IMPORT EXCEPTIONS
;
VAR
s
:
EXCEPTIONS
.
ExceptionSource
;
BEGIN
EXCEPTIONS
.
AllocateSource
(
s
)
;
EXCEPTIONS
.
RAISE
(
s
,
1
,
'Exception text'
)
EXCEPT
HALT
(
0
)
END
exceptiontest
.