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
PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays
[official-gcc.git]
/
gcc
/
testsuite
/
gnat.dg
/
stack_usage5.adb
blob
55d0f13e1fa64d0196d90b00444f748ac8460331
1
-- { dg-do compile }
2
-- { dg-options "-Wstack-usage=512" }
3
4
procedure
Stack_Usage5
(
C
:
Character
)
is
5
6
S
:
String
(
1
..
300
);
7
8
procedure
Set
is
9
begin
10
S
(
1
) :=
C
;
11
end
;
12
13
begin
14
Set
;
15
end
;