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

Subversion Repositories openrisc

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

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


--  { dg-do run }
--  { dg-options "-O2" }
with Ada.Text_Io; use Ada.Text_IO;
with Raise_From_Pure; use Raise_From_Pure;
procedure handle_raise_from_pure is
   K : Integer;
begin
   K := Raise_CE_If_0 (0);
exception
   when others => Put_Line ("exception caught");
end;

Line No.	Rev	Author	Line
1	696	jeremybenn	`-- { dg-do run }`
2			`-- { dg-options "-O2" }`
3			`with Ada.Text_Io; use Ada.Text_IO;`
4			`with Raise_From_Pure; use Raise_From_Pure;`
5			`procedure handle_raise_from_pure is`
6			`K : Integer;`
7			`begin`
8			`K := Raise_CE_If_0 (0);`
9			`exception`
10			`when others => Put_Line ("exception caught");`
11			`end;`

Browse

Tools

Subversion Repositories openrisc

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