projects
/
platform
/
upstream
/
gcc48.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
remove unused files
[platform/upstream/gcc48.git]
/
gcc
/
testsuite
/
gnat.dg
/
lto8.adb
1
-- { dg-do run }
2
-- { dg-options "-gnatws" }
3
-- { dg-options "-gnatws -flto" { target lto } }
4
5
pragma Locking_Policy (Ceiling_Locking);
6
7
with Lto8_Pkg; use Lto8_Pkg;
8
9
procedure Lto8 is
10
task Tsk is
11
pragma Priority (10);
12
end Tsk;
13
task body Tsk is
14
begin
15
Sema2.Seize;
16
Sema1.Seize;
17
exception
18
when Program_Error => null;
19
end;
20
begin
21
null;
22
end;