Sign in
chromium
/
native_client
/
nacl-toolchain
/
gcc-4.4.3
/
.
/
gcc
/
gcc
/
testsuite
/
gnat.dg
/
test_raise_from_pure.adb
blob: a3a9c649659bb9183c72928741725434745e3173 [
file
] [
log
] [
blame
]
--
{
dg
-
do
run
}
--
{
dg
-
options
"-O2"
}
with
Raise_From_Pure
;
use
Raise_From_Pure
;
procedure test_raise_from_pure
is
K
:
Integer
;
begin
K
:=
Raise_CE_If_0
(
0
);
end
;