summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/opt3.adb
blob: b8ca2c7fba61aed36958f29c654ced8993c042a7 (plain)
1
2
3
4
5
6
7
8
9
10
11
-- { dg-do compile }
-- { dg-options "-O3" }

with Opt3_Pkg; use Opt3_Pkg;

procedure Opt3 is
  type Buffer_Type is array (Integer range <> ) of Short_Integer;
  B : Buffer_Type (1 .. 256) := (others => 0);
begin
  F (B(1));
end;