blob: e8e8f2956e19546446ffae314a331ee181046eb6 [file] [log] [blame]
-- { dg-do compile }
-- { dg-options "-O" }
with Modular4_Pkg; use Modular4_Pkg;
procedure Modular4 is
begin
for I in Zero .. F mod 8 loop
raise Program_Error;
end loop;
end;