gcc/testsuite/gnat.dg/opt99_pkg1.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

with Opt99_Pkg2;

package Opt99_Pkg1 is

  type My_Character (D : Boolean := False) is record
    case D is
      when False => null;
      when True  => C : Character;
    end case;
  end record;

  type Derived is new Opt99_Pkg2.Root with record
    I : Integer;
    C1, C2 : My_Character;
  end record;

  procedure Set (D: in out Derived; C1, C2 : My_Character);

end Opt99_Pkg1;