aboutsummaryrefslogtreecommitdiffstats
path: root/test/FrontendAda/init_size.ads
blob: f423682bec72b1c9ce8566a43807533dfabda284 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
-- RUN: %llvmgcc -S %s
package Init_Size is
   type T (B : Boolean := False) is record
      case B is
         when False =>
            I : Integer;
         when True =>
            J : Long_Long_Integer; -- Bigger than I
      end case;
   end record;
   A_T : constant T := (False, 0);
end;