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.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [check1.adb] - Rev 338

-- { dg-do compile }
 
package body Check1 is
   function FD (X : access R) return P2 is
   begin
      return P2 (X.Disc);
   end FD;
end Check1;