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/] [class_wide.adb] - Rev 304

Compare with Previous | Blame | View Log

-- { dg-do compile }
 
procedure class_wide is
    package P is
       type T is tagged null record;
       procedure P1 (x : T'Class);
       procedure P2 (x : access T'Class);
    end P;
    package body P is
        procedure P1 (x : T'Class) is 
       begin 
          null;
       end;
       procedure P2 (x : access T'Class) is
       begin
          null;
       end;
    end P;
    use P;
    a : T;
    type Ptr is access T;
    b : Ptr := new T;
begin
    A.P1;
    B.P2;
end;
 

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.