Sign in
gnu
/
gcc
/
e5cfb9cac1d7aba9a8ea73bfe7922cfaff9d61f3
/
.
/
gcc
/
testsuite
/
gcc.c-torture
/
execute
/
941021-1.c
blob: 9fc1cfadf97dfac7b60d4db6b19520885681af05 [
file
] [
log
] [
blame
]
double
glob_dbl
;
f
(
pdbl
,
value
)
double
*
pdbl
;
double
value
;
{
if
(
pdbl
==
0
)
pdbl
=
&
glob_dbl
;
*
pdbl
=
value
;
}
main
()
{
f
((
void
*)
0
,
55.1
);
if
(
glob_dbl
!=
55.1
)
abort
();
exit
(
0
);
}