Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
array24.adb
blob: c6974365fed5f2f6ebba7a749b12812df24a5e3d [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
--
{
dg
-
options
"-fdump-tree-optimized"
}
procedure
Array24
(
N
:
Natural
)
is
S
:
String
(
1
..
N
);
pragma
Volatile
(
S
);
begin
S
:=
(
others
=>
'0'
);
end
;
--
{
dg
-
final
{
scan
-
tree
-
dump
-
not
"builtin_unwind_resume"
"optimized"
}
}