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/] [discr_test.adb] - Blame information for rev 304

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 304 jeremybenn
--  { dg-do compile }
2
 
3
procedure Discr_Test is
4
  procedure P is begin null; end P;
5
 
6
  task type Tsk1 is
7
    entry rvT;
8
  end Tsk1;
9
 
10
  task body Tsk1 is
11
  begin
12
    accept rvT;
13
  end Tsk1;
14
 
15
  task type Tsk2 (pS : not null access procedure) is
16
    entry rvT;
17
  end Tsk2;
18
 
19
  task body Tsk2 is
20
    tskT : Tsk1;
21
  begin
22
    accept rvT do
23
      requeue tskT.rvT;
24
    end rvT;
25
    pS.all;
26
  end;
27
 
28
  Obj : Tsk2 (P'access);
29
begin
30
  Obj.rvT;
31
end;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.