blob: 4e01bd60909cc6a1ee715bf6f3b6368b739b6593 [file] [log] [blame]
-- { dg-do run }
procedure modular2 is
type x is mod 2 ** 64;
r : x := x'last;
begin
r := r + 1;
end;