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
/
gcc.dg
/
pr84670-4.c
blob
036055081827443a74cdbc587229bbe4b39e5b67
1
/* { dg-do compile } */
2
/* { dg-options "-O2 -fwrapv" } */
3
/* { dg-require-effective-target ptr_eq_long } */
4
5
char
*
a
;
6
int
b
(
void
)
7
{
8
long
d
;
9
if
(
a
) {
10
char
c
;
11
while
((
c
= *
a
) && !((
unsigned
)
c
-
'0'
<=
9
) &&
c
!=
','
&&
c
!=
'-'
12
&&
c
!=
'+'
)
13
++
a
;
14
d
= (
long
)
a
;
15
}
16
if
(*
a
)
17
return
d
;
18
}