blob: e8e8f2956e19546446ffae314a331ee181046eb6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
-- { 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;
|