gcc/testsuite/gnat.dg/discr36.ads


1
2
3
4
5
6
7
8
9
10
11
12

package Discr36 is

  type R (D : Boolean := True) is record
    case D is
      when True  => I : Integer;
      when False => null;
    end case;
  end record;

  function N return Natural;

end Discr36;