Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
gcc.c-torture
/
execute
/
930818-1.c
blob: 530cd5fe96cd548e0ecb2f319db68c6f3fece9e9 [
file
] [
log
] [
blame
]
/* { dg-additional-options "-fpermissive" } */
static
double
one
=
1.0
;
f
()
{
int
colinear
;
colinear
=
(
one
==
0.0
);
if
(
colinear
)
abort
();
return
colinear
;
}
main
()
{
if
(
f
())
abort
();
exit
(
0
);
}