Fix broken MinGW build of gcc.c
[official-gcc.git] / gcc / testsuite / gnat.dg / opt66.adb
blob94a1790737c18df7a8dca22e9dcce0035dd0cda1
1 -- { dg-do compile }
2 -- { dg-options "-O" }
4 procedure Opt66 (I : Integer) is
5 E : exception;
6 begin
7 if I = 0 then
8 raise E;
9 end if;
10 Opt66 (I - I / abs (I));
11 exception
12 when others => null;
13 end;