gcc/testsuite/gnat.dg/aggr24.adb


1
2
3
4
5
6
7
8
9
10
11
12
13

-- { dg-do run }

with Aggr24_Pkg; use Aggr24_Pkg;

procedure Aggr24 is
  V : Rec;
begin
  V.S := "Hello";
  Init (V);
  if V.S /= "Hello" then
    raise Program_Error;
  end if;
end;