URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [div_no_warning.adb] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | View Log


--  { dg-do compile }
 
procedure div_no_warning is
   Flag : constant Boolean := False;
   Var : Boolean := True;
   function F return Boolean is
   begin
      return Var;
   end F;
   Int : Integer := 0;
begin
   if Flag and then F then
      Int := Int / 0;
   end if;
end div_no_warning;

Line No.	Rev	Author	Line
1	696	jeremybenn	`-- { dg-do compile }`
2
3			`procedure div_no_warning is`
4			`Flag : constant Boolean := False;`
5			`Var : Boolean := True;`
6			`function F return Boolean is`
7			`begin`
8			`return Var;`
9			`end F;`
10			`Int : Integer := 0;`
11			`begin`
12			`if Flag and then F then`
13			`Int := Int / 0;`
14			`end if;`
15			`end div_no_warning;`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [div_no_warning.adb] - Blame information for rev 801