RISC-V: Add support for riscv-*-*.
[official-gcc.git] / gcc / testsuite / gnat.dg / opt11.ads
blob983bf264302d6a5133e70a93650797016726ddd6
1 package Opt11 is
3 type String_Ptr is access constant String;
5 type Form_Type is (Qualified, Unqualified);
7 type Rec is record
8 N1, N2, N3 : Natural;
9 Fixed : String_Ptr;
10 Form : Form_Type;
11 Is_Local : Boolean := True;
12 end record;
13 pragma Pack (Rec);
15 procedure Proc;
17 end Opt11;