Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
enum1.adb
blob: f751d24a782600037243e46d1e8c05ab23a29494 [
file
] [
log
] [
blame
]
--
{
dg
-
do
run
}
--
{
dg
-
options
"-O2"
}
with
Enum1_Pkg
;
use
Enum1_Pkg
;
procedure
Enum1
is
function
Cond
return
Boolean
is
begin
return
My_N
=
Two
or
My_N
=
Three
;
end
;
begin
if
Cond
then
raise
Constraint_Error
;
end
if
;
end
;