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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


-- { dg-do compile }
-- { dg-options "-g" }
 
with Taft_Type2_Pkg; use Taft_Type2_Pkg;
 
package body Taft_Type2 is
 
   procedure Proc is
      A : T;
 
      function F return T is
         My_T : T;
      begin
         My_T := Open;
         return My_T;
      end;
 
   begin
      A := F;
   end;
 
end Taft_Type2;

Line No.	Rev	Author	Line
1	696	jeremybenn	`-- { dg-do compile }`
2			`-- { dg-options "-g" }`
3
4			`with Taft_Type2_Pkg; use Taft_Type2_Pkg;`
5
6			`package body Taft_Type2 is`
7
8			`procedure Proc is`
9			`A : T;`
10
11			`function F return T is`
12			`My_T : T;`
13			`begin`
14			`My_T := Open;`
15			`return My_T;`
16			`end;`
17
18			`begin`
19			`A := F;`
20			`end;`
21
22			`end Taft_Type2;`

Browse

Tools

Subversion Repositories openrisc

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