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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [discr29.ads] - Rev 696

Compare with Previous | Blame | View Log

-- { dg-do compile }
 
package Discr29 is
 
   type Rec1 is record
      I1 : Integer;
      I2 : Integer;
      I3 : Integer;
   end record;
 
   type Rec2 is tagged record
      I1 : Integer;
      I2 : Integer;
   end record;
 
   type Rec3 (D : Boolean) is record
      case D is
         when True =>  A : Rec1;
         when False => B : Rec2;
      end case;
   end record;
 
   procedure Proc (R : out Rec3);
 
   Tmp : Rec2;
 
end Discr29;
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

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