diff options
Diffstat (limited to 'gcc/testsuite/gnat.dg/aggr12.ads')
-rw-r--r-- | gcc/testsuite/gnat.dg/aggr12.ads | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/aggr12.ads b/gcc/testsuite/gnat.dg/aggr12.ads new file mode 100644 index 000000000..32084176e --- /dev/null +++ b/gcc/testsuite/gnat.dg/aggr12.ads @@ -0,0 +1,15 @@ +package Aggr12 is + + type Hair_Color_Type is (Black, Brown, Blonde, Grey, White, Red); + + type Rec is record + I1, I2 : Hair_Color_Type; + end record; + + A : constant Rec := (Black, Blonde); + + procedure Print (Data : String); + + procedure Test; + +end Aggr12; |