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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [access3.ads] - Blame information for rev 696

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 696 jeremybenn
--  { dg-do compile }
2
 
3
package access3 is
4
   type TF is access function return access procedure (P1 : Integer);
5
 
6
   type TAF is access protected function return access procedure (P1 : Integer);
7
 
8
   type TAF2 is access
9
     function return access protected procedure (P1 : Integer);
10
 
11
   type TAF3 is access
12
     protected function return access protected procedure (P1 : Integer);
13
 
14
   type TAF_Inf is
15
      access protected function return
16
         access function return
17
         access function return
18
         access function return
19
         access function return
20
         access function return
21
         access function return
22
         access function return
23
         access function return
24
      Integer;
25
end access3;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.