OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Fix typo in previous commit.
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gcc.c-torture
/
execute
/
20030401-1.c
1
/* Testcase for PR fortran/9974. This was a miscompilation of the g77
2
front-end caused by the jump bypassing optimizations not handling
3
instructions inserted on CFG edges. */
4
5
extern void abort ();
6
7
int bar ()
8
{
9
return 1;
10
}
11
12
void foo (int x)
13
{
14
unsigned char error = 0;
15
16
if (! (error = ((x == 0) || bar ())))
17
bar ();
18
if (! error)
19
abort ();
20
}
21
22
int main()
23
{
24
foo (1);
25
return 0;
26
}
27