URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gnat.dg/] [lhs_view_convert.adb] - Diff between revs 304 and 384

Rev 304	Rev 384
`-- { dg-do run }`	`-- { dg-do run }`
`-- { dg-options "-gnatp" }`	`-- { dg-options "-gnatp" }`

`procedure Lhs_View_Convert is`	`procedure Lhs_View_Convert is`

`type Root is tagged record`	`type Root is tagged record`
`RV : Natural;`	`RV : Natural;`
`end record;`	`end record;`

`type Derived is new Root with null record;`	`type Derived is new Root with null record;`

`Root_Instance : Root := (RV => 1);`	`Root_Instance : Root := (RV => 1);`

`Derived_Instance : Derived;`	`Derived_Instance : Derived;`

`procedure Process is`	`procedure Process is`
`X : Natural := Derived_Instance.RV;`	`X : Natural := Derived_Instance.RV;`
`begin`	`begin`
`null;`	`null;`
`end;`	`end;`
`begin`	`begin`
`Derived_Instance.RV := 2;`	`Derived_Instance.RV := 2;`

`Root (Derived_Instance) := Root (Root_Instance);`	`Root (Derived_Instance) := Root (Root_Instance);`

`if Derived_Instance.RV /= Root_Instance.RV then`	`if Derived_Instance.RV /= Root_Instance.RV then`
`raise Program_Error;`	`raise Program_Error;`
`end if;`	`end if;`
`end;`	`end;`