RISC-V: Add support for riscv-*-*.
[official-gcc.git] / gcc / testsuite / gnat.dg / discr51.adb
blob71a342050fd4d295cd612da9ee5934883f260b91
1 -- { dg-do compile }
3 with Ada.Containers.Indefinite_Holders;
5 procedure Discr51 is
7 package Inner is
8 type Str (<>) is private;
9 private
10 type Str is array (Positive range <>) of Character;
11 end Inner;
13 package Inner2 is
14 type Str2 (<>) is private;
15 private
16 type str2 is new inner.Str;
17 end Inner2;
19 type Str3 is new Inner.str;
21 package Str_Holders is new Ada.Containers.Indefinite_Holders
22 (Inner.Str, Inner."=");
24 package Str2_Holders is new Ada.Containers.Indefinite_Holders
25 (Inner2.Str2, Inner2."=");
27 package Str3_Holders is new Ada.Containers.Indefinite_Holders
28 (Str3, "=");
30 begin
31 null;
32 end Discr51;