Sign in
gnu
/
gcc
/
ab810952eb7c061e37054ddd1dfe0aa033365131
/
.
/
gcc
/
testsuite
/
gcc.c-torture
/
execute
/
930608-1.c
blob: 004a440070959239c02814b9e3ad917899cdd9ca [
file
] [
log
] [
blame
]
double
f
(
double
a
)
{}
double
(*
const
a
[])
(
double
)
=
{&
f
};
main
()
{
double
(*
p
)
();
p
=
&
f
;
if
(
p
!=
a
[
0
])
abort
();
exit
(
0
);
}