Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
opt52.adb
blob: d2541c26410c67ea5501ef4cd592ebfe1742493d [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
--
{
dg
-
options
"-O -fdump-tree-optimized"
}
procedure
Opt52
(
I
:
Integer
)
is
begin
if
I
+
1
<
I
then
raise
Program_Error
;
end
if
;
end
;
--
{
dg
-
final
{
scan
-
tree
-
dump
-
not
"check_PE_Explicit_Raise"
"optimized"
}
}