OpenCores
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/] [nested_proc2.adb] - Blame information for rev 304

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 304 jeremybenn
-- { dg-do compile }
2
-- { dg-options "-gnatws" }
3
 
4
procedure Nested_Proc2 is
5
 
6
   type Arr is array(1..2) of Integer;
7
 
8
   type Rec is record
9
      Data : Arr;
10
   end record;
11
 
12
   From  : Rec;
13
   Index : Integer;
14
 
15
   function F (X : Arr) return Integer is
16
   begin
17
      return 0;
18
   end;
19
 
20
   procedure Test is
21
   begin
22
      Index := F (From.Data);
23
      If Index /= 0 then
24
         raise Program_Error;
25
      end if;
26
   end;
27
 
28
begin
29
  Test;
30
end;

powered by: WebSVN 2.1.0

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