gcc/testsuite/gnat.dg/warn12_pkg.ads

   1 with Interfaces.C; use Interfaces.C;
   2 with System;
   3
   4 package Warn12_Pkg is
   5
   6    Anysize_Array: constant := 0;
   7
   8    type Sid_And_Attributes is record
   9       Sid        : System.Address;
  10       Attributes : Interfaces.C.Unsigned_Long;
  11    end record;
  12
  13    type Sid_And_Attributes_Array
  14       is array (Integer range 0..Anysize_Array) of aliased Sid_And_Attributes;
  15
  16    type Token_Groups is record
  17       GroupCount : Interfaces.C.Unsigned_Long;
  18       Groups     : Sid_And_Attributes_Array;
  19    end record;
  20
  21 end Warn12_Pkg;