view gcc/testsuite/gnat.dg/array32.ads @ 145:1830386684a0

gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents
children
line wrap: on
line source

package Array32 is

   type Rec is record
      I : Integer;
   end record;

   type Arr is array (Positive range <>) of Rec;

   procedure Init (A : out Arr);

end Array32;