Sign in
llvm
/
llvm-archive
/
b2afe9617fbec6c0556f5e7467c61aeda2e0ae8f
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
f2c_5.c
blob: bb57556d0116b22ac795360d45a22a3694117280 [
file
] [
log
] [
blame
]
extern
float
f2c_5b_
(
double
*);
extern
void
abort
(
void
);
void
f2c_5a_
(
void
)
{
double
a
,
b
;
a
=
1023.0
;
b
=
f2c_5b_
(&
a
);
if
(
a
!=
b
)
abort
();
}