OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
* gcc.c-torture/compile/20080625-1.c: Skip for M32C.
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gnat.dg
/
discr_test.adb
1
-- { 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;