URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gnat.dg/] [lhs_view_convert.adb] - Rev 304
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do run } -- { dg-options "-gnatp" } procedure Lhs_View_Convert is type Root is tagged record RV : Natural; end record; type Derived is new Root with null record; Root_Instance : Root := (RV => 1); Derived_Instance : Derived; procedure Process is X : Natural := Derived_Instance.RV; begin null; end; begin Derived_Instance.RV := 2; Root (Derived_Instance) := Root (Root_Instance); if Derived_Instance.RV /= Root_Instance.RV then raise Program_Error; end if; end;
Go to most recent revision | Compare with Previous | Blame | View Log