Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
opt35_pkg.adb
blob: 8e868c49d975cfe4f937f10487b4365c94122edb [
file
] [
log
] [
blame
]
package
body
Opt35_Pkg
is
function
F
(
I
:
Integer
)
return
Integer
is
begin
if
I
=
0
then
raise
E
;
end
if
;
return
-
I
;
end
;
end
Opt35_Pkg
;