repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
2016-11-21 Thomas Preud'homme <thomas.preudhomme@arm.com>
[official-gcc.git]
/
gcc
/
testsuite
/
gnat.dg
/
asynch.adb
blob
024af725cd170fb7cdf832ffd4cb599794233bd9
1
-- { dg-do compile }
2
3
package body
asynch
is
4
function
null_ctrl
return
t_ctrl
is
5
begin
6
return
(
Ada
.
Finalization
.
Controlled
with
stuff
=>
0
);
7
end
null_ctrl
;
8
9
procedure
Proc
(
msg
:
String
;
c
:
t_ctrl
:=
null_ctrl
)
is
10
begin
11
null
;
12
end
Proc
;
13
14
task type
tsk
;
15
task body
tsk
is
16
begin
17
select
18
delay
10.0
;
19
Proc
(
"A message."
);
20
then abort
21
null
;
22
end select
;
23
end
tsk
;
24
end
asynch
;