gcc/testsuite/gnat.dg/discr55.adb


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

-- { dg-do run }

procedure Discr55 is

  type Rec (C : Character) is record
    case C is
      when 'Z' .. Character'Val (128) => I : Integer;
      when others                     => null;
    end case;
  end record;

  R : Rec ('Z');

begin
  R.I := 0;
end;