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/] [array7.adb] - Blame information for rev 378

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


-- { dg-do compile }
-- { dg-options "-O -gnatp -fdump-tree-optimized" }
 
package body Array7 is
 
   package body Range_Subtype is
      function Get_Arr (Nbr : My_Range) return Arr_Acc is
      begin
         return new Arr (1 .. Nbr);
      end;
   end;
 
   package body Range_Type is
      function Get_Arr (Nbr : My_Range) return Arr_Acc is
      begin
         return new Arr (1 .. Nbr);
      end;
   end;
 
end Array7;
 
-- { dg-final { scan-tree-dump-not "MAX_EXPR" "optimized" } }

Line No.	Rev	Author	Line
1	304	jeremybenn	`-- { dg-do compile }`
2			`-- { dg-options "-O -gnatp -fdump-tree-optimized" }`
3
4			`package body Array7 is`
5
6			`package body Range_Subtype is`
7			`function Get_Arr (Nbr : My_Range) return Arr_Acc is`
8			`begin`
9			`return new Arr (1 .. Nbr);`
10			`end;`
11			`end;`
12
13			`package body Range_Type is`
14			`function Get_Arr (Nbr : My_Range) return Arr_Acc is`
15			`begin`
16			`return new Arr (1 .. Nbr);`
17			`end;`
18			`end;`
19
20			`end Array7;`
21
22			`-- { dg-final { scan-tree-dump-not "MAX_EXPR" "optimized" } }`

Browse

Tools

Subversion Repositories openrisc_me

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