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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [capture_value.adb] - Blame information for rev 328

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


-- { dg-do run }
 
procedure capture_value is
   x : integer := 0;
begin
   declare
      z : integer renames x;
   begin
      z := 3;
      x := 5;
      z := z + 1;
      if z /= 6 then
         raise Program_Error;
      end if;
   end;
end;

Line No.	Rev	Author	Line
1	304	jeremybenn	`-- { dg-do run }`
2
3			`procedure capture_value is`
4			`x : integer := 0;`
5			`begin`
6			`declare`
7			`z : integer renames x;`
8			`begin`
9			`z := 3;`
10			`x := 5;`
11			`z := z + 1;`
12			`if z /= 6 then`
13			`raise Program_Error;`
14			`end if;`
15			`end;`
16			`end;`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [capture_value.adb] - Blame information for rev 328