Sign in
gnu
/
gcc
/
refs/heads/releases/gcc-6
/
.
/
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
();
}