Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
opt22_pkg.adb
blob: fa05dfe3a5509765c672d0bd9c490e13e51eb227 [
file
] [
log
] [
blame
]
package
body
Opt22_Pkg
is
procedure
Fail
is
begin
raise
Constraint_Error
;
end
;
procedure
Put
(
S
:
String
)
is
begin
if
S
/=
"the message"
then
raise
Program_Error
;
end
if
;
end
;
end
Opt22_Pkg
;