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
/
size_attribute.adb
blob
25642e0b0aad86413b92780ba62d73218c7d1d52
1
-- PR middle-end/35823
2
-- { dg-do compile ]
3
4
procedure
Size_Attribute
(
Arg
:
in
String
)
is
5
Size
:
constant
Natural
:=
Arg
'Size
;
6
begin
7
null
;
8
end
;