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

Compare with Previous | Blame | View Log

with ada.task_identification;
with ada.text_io; use ada.text_io;
package body test_image_p is
    function to_type1 (arg1 : in Integer) return type1 is
    begin
        return  (f2 => (others => Standard.False));
    end to_type1;
    task body task_t is
       Name : String :=
             ada.task_identification.image (arg.the_task'identity);
    begin
        arg.the_array := (others => to_type1 (-1));
        if Name (1 .. 19) /= "my_at5c.f3.the_task" then
           Put_Line ("error");
           raise Program_Error;
        end if;
 
        select
           accept entry1;
        or 
           terminate;
        end select;
    end task_t;
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.