Require target lra in gcc.dg/pr108095.c

[official-gcc.git] / gcc / testsuite / gnat.dg / discr55.adb

-- { 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;