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
Skip analyzer strndup test on hppa*-*-hpux*
[official-gcc.git]
/
gcc
/
testsuite
/
gnat.dg
/
machine_attr1.adb
blob
f4e4ff7ddd566167094d2f4e5232bf2088e10011
1
-- { dg-do compile { target i?86-*-linux* x86_64-*-linux* } }
2
-- { dg-options "-O3 -gnatp" }
3
4
package body
Machine_Attr1
is
5
6
procedure
Proc1
is
7
begin
8
Proc3
;
9
Proc4
;
10
end
;
11
12
procedure
Proc2
is
13
begin
14
Proc1
;
15
end
;
16
17
procedure
Proc3
is
18
begin
19
A
(
1
) :=
0
;
20
end
;
21
22
procedure
Proc4
is
23
begin
24
A
(
2
) :=
0
;
25
end
;
26
27
procedure
Proc5
is
28
begin
29
for
I
in
A
'Range
loop
30
A
(
I
) :=
B
(
I
) +
C
(
I
);
31
end loop
;
32
end
;
33
34
procedure
Proc6
is
35
begin
36
for
I
in
A
'Range
loop
37
A
(
I
) :=
B
(
I
) +
C
(
I
);
38
end loop
;
39
end
;
40
41
end
Machine_Attr1
;