1995-12-17 13:08:31 +01:00
|
|
|
/* fp-test.c - Check that all floating-point operations are available.
|
2017-01-01 13:07:43 +01:00
|
|
|
Copyright (C) 1995-2017 Free Software Foundation, Inc.
|
1995-12-17 13:08:31 +01:00
|
|
|
Contributed by Ronald F. Guilmette <rfg@monkeys.com>.
|
|
|
|
|
|
Makefile.in, [...]: replace "GNU CC" with "GCC".
* Makefile.in, alias.c, basic-block.h, bb-reorder.c, bitmap.c,
bitmap.h, builtin-types.def, builtins.c, builtins.def,
c-aux-info.c, c-common.c, c-common.def, c-common.h,
c-convert.c, c-decl.c, c-dump.c, c-dump.h, c-errors.c,
c-format.c, c-lang.c, c-lex.c, c-lex.h, c-parse.in,
c-pragma.c, c-pragma.h, c-semantics.c, c-tree.h, c-typeck.c,
caller-save.c, calls.c, collect2.c, collect2.h, combine.c,
conditions.h, config.gcc, configure.frag, configure.in,
conflict.c, convert.c, convert.h, cppspec.c, crtstuff.c,
cse.c, cselib.c, cselib.h, dbxout.c, dbxout.h, defaults.h,
dependence.c, df.c, df.h, diagnostic.c, diagnostic.h,
doloop.c, dominance.c, dwarf.h, dwarf2.h, dwarf2asm.c,
dwarf2asm.h, dwarf2out.c, dwarf2out.h, dwarfout.c,
emit-rtl.c, errors.c, errors.h, except.c, except.h,
exgettext, explow.c, expmed.c, expr.c, expr.h, final.c,
fixproto, flags.h, flow.c, fold-const.c, fp-test.c,
function.c, function.h, gbl-ctors.h, gcc.c, gcc.h, gcc.hlp,
gccspec.c, gcov-io.h, gcse.c, genattr.c, genattrtab.c,
gencheck.c, gencodes.c, genconfig.c, genemit.c,
genextract.c, genflags.c, gengenrtl.c, genmultilib,
genopinit.c, genoutput.c, genpeep.c, genrecog.c,
gensupport.c, gensupport.h, ggc-callbacks.c, ggc-common.c,
ggc-none.c, ggc-page.c, ggc-simple.c, ggc.h, global.c,
graph.c, graph.h, gthr-aix.h, gthr-dce.h, gthr-posix.h,
gthr-rtems.h, gthr-single.h, gthr-solaris.h, gthr-vxworks.h,
gthr-win32.h, gthr.h, haifa-sched.c, halfpic.c, halfpic.h,
hard-reg-set.h, hwint.h, ifcvt.c, input.h, insn-addr.h,
integrate.c, integrate.h, jump.c, lcm.c, libgcc2.c,
libgcc2.h, lists.c, local-alloc.c, loop.c, loop.h,
machmode.def, machmode.h, main.c, mbchar.c, mbchar.h,
mips-tdump.c, mips-tfile.c, mklibgcc.in, mkmap-flat.awk,
mkmap-symver.awk, optabs.c, output.h, params.c, params.def,
params.h, predict.c, predict.def, predict.h, prefix.c,
prefix.h, print-rtl.c, print-tree.c, profile.c, protoize.c,
read-rtl.c, real.c, real.h, recog.c, recog.h, reg-stack.c,
regclass.c, regmove.c, regrename.c, regs.h, reload.c,
reload.h, reload1.c, reorg.c, resource.c, resource.h, rtl.c,
rtl.def, rtl.h, rtlanal.c, sbitmap.c, sbitmap.h,
sched-deps.c, sched-ebb.c, sched-int.h, sched-rgn.c,
sched-vis.c, sdbout.c, sdbout.h, sibcall.c, simplify-rtx.c,
ssa-ccp.c, ssa-dce.c, ssa.c, ssa.h, stmt.c, stor-layout.c,
stringpool.c, system.h, timevar.c, timevar.def, timevar.h,
tlink.c, toplev.c, toplev.h, tree.c, tree.def, tree.h,
tsystem.h, unroll.c, unwind-dw2-fde.c, unwind-dw2-fde.h,
unwind-dw2.c, unwind-pe.h, unwind-sjlj.c, unwind.h,
unwind.inc, varasm.c, varray.c, varray.h, xcoffout.c,
xcoffout.h: replace "GNU CC" with "GCC".
From-SVN: r45105
2001-08-22 16:35:51 +02:00
|
|
|
This file is part of GCC.
|
1995-12-17 13:08:31 +01:00
|
|
|
|
Makefile.in, [...]: replace "GNU CC" with "GCC".
* Makefile.in, alias.c, basic-block.h, bb-reorder.c, bitmap.c,
bitmap.h, builtin-types.def, builtins.c, builtins.def,
c-aux-info.c, c-common.c, c-common.def, c-common.h,
c-convert.c, c-decl.c, c-dump.c, c-dump.h, c-errors.c,
c-format.c, c-lang.c, c-lex.c, c-lex.h, c-parse.in,
c-pragma.c, c-pragma.h, c-semantics.c, c-tree.h, c-typeck.c,
caller-save.c, calls.c, collect2.c, collect2.h, combine.c,
conditions.h, config.gcc, configure.frag, configure.in,
conflict.c, convert.c, convert.h, cppspec.c, crtstuff.c,
cse.c, cselib.c, cselib.h, dbxout.c, dbxout.h, defaults.h,
dependence.c, df.c, df.h, diagnostic.c, diagnostic.h,
doloop.c, dominance.c, dwarf.h, dwarf2.h, dwarf2asm.c,
dwarf2asm.h, dwarf2out.c, dwarf2out.h, dwarfout.c,
emit-rtl.c, errors.c, errors.h, except.c, except.h,
exgettext, explow.c, expmed.c, expr.c, expr.h, final.c,
fixproto, flags.h, flow.c, fold-const.c, fp-test.c,
function.c, function.h, gbl-ctors.h, gcc.c, gcc.h, gcc.hlp,
gccspec.c, gcov-io.h, gcse.c, genattr.c, genattrtab.c,
gencheck.c, gencodes.c, genconfig.c, genemit.c,
genextract.c, genflags.c, gengenrtl.c, genmultilib,
genopinit.c, genoutput.c, genpeep.c, genrecog.c,
gensupport.c, gensupport.h, ggc-callbacks.c, ggc-common.c,
ggc-none.c, ggc-page.c, ggc-simple.c, ggc.h, global.c,
graph.c, graph.h, gthr-aix.h, gthr-dce.h, gthr-posix.h,
gthr-rtems.h, gthr-single.h, gthr-solaris.h, gthr-vxworks.h,
gthr-win32.h, gthr.h, haifa-sched.c, halfpic.c, halfpic.h,
hard-reg-set.h, hwint.h, ifcvt.c, input.h, insn-addr.h,
integrate.c, integrate.h, jump.c, lcm.c, libgcc2.c,
libgcc2.h, lists.c, local-alloc.c, loop.c, loop.h,
machmode.def, machmode.h, main.c, mbchar.c, mbchar.h,
mips-tdump.c, mips-tfile.c, mklibgcc.in, mkmap-flat.awk,
mkmap-symver.awk, optabs.c, output.h, params.c, params.def,
params.h, predict.c, predict.def, predict.h, prefix.c,
prefix.h, print-rtl.c, print-tree.c, profile.c, protoize.c,
read-rtl.c, real.c, real.h, recog.c, recog.h, reg-stack.c,
regclass.c, regmove.c, regrename.c, regs.h, reload.c,
reload.h, reload1.c, reorg.c, resource.c, resource.h, rtl.c,
rtl.def, rtl.h, rtlanal.c, sbitmap.c, sbitmap.h,
sched-deps.c, sched-ebb.c, sched-int.h, sched-rgn.c,
sched-vis.c, sdbout.c, sdbout.h, sibcall.c, simplify-rtx.c,
ssa-ccp.c, ssa-dce.c, ssa.c, ssa.h, stmt.c, stor-layout.c,
stringpool.c, system.h, timevar.c, timevar.def, timevar.h,
tlink.c, toplev.c, toplev.h, tree.c, tree.def, tree.h,
tsystem.h, unroll.c, unwind-dw2-fde.c, unwind-dw2-fde.h,
unwind-dw2.c, unwind-pe.h, unwind-sjlj.c, unwind.h,
unwind.inc, varasm.c, varray.c, varray.h, xcoffout.c,
xcoffout.h: replace "GNU CC" with "GCC".
From-SVN: r45105
2001-08-22 16:35:51 +02:00
|
|
|
GCC is free software; you can redistribute it and/or modify it
|
|
|
|
|
under the terms of the GNU General Public License as published by
|
2007-07-26 10:37:01 +02:00
|
|
|
the Free Software Foundation; either version 3, or (at your option)
|
2000-01-24 21:10:04 +01:00
|
|
|
any later version.
|
1995-12-17 13:08:31 +01:00
|
|
|
|
Makefile.in, [...]: replace "GNU CC" with "GCC".
* Makefile.in, alias.c, basic-block.h, bb-reorder.c, bitmap.c,
bitmap.h, builtin-types.def, builtins.c, builtins.def,
c-aux-info.c, c-common.c, c-common.def, c-common.h,
c-convert.c, c-decl.c, c-dump.c, c-dump.h, c-errors.c,
c-format.c, c-lang.c, c-lex.c, c-lex.h, c-parse.in,
c-pragma.c, c-pragma.h, c-semantics.c, c-tree.h, c-typeck.c,
caller-save.c, calls.c, collect2.c, collect2.h, combine.c,
conditions.h, config.gcc, configure.frag, configure.in,
conflict.c, convert.c, convert.h, cppspec.c, crtstuff.c,
cse.c, cselib.c, cselib.h, dbxout.c, dbxout.h, defaults.h,
dependence.c, df.c, df.h, diagnostic.c, diagnostic.h,
doloop.c, dominance.c, dwarf.h, dwarf2.h, dwarf2asm.c,
dwarf2asm.h, dwarf2out.c, dwarf2out.h, dwarfout.c,
emit-rtl.c, errors.c, errors.h, except.c, except.h,
exgettext, explow.c, expmed.c, expr.c, expr.h, final.c,
fixproto, flags.h, flow.c, fold-const.c, fp-test.c,
function.c, function.h, gbl-ctors.h, gcc.c, gcc.h, gcc.hlp,
gccspec.c, gcov-io.h, gcse.c, genattr.c, genattrtab.c,
gencheck.c, gencodes.c, genconfig.c, genemit.c,
genextract.c, genflags.c, gengenrtl.c, genmultilib,
genopinit.c, genoutput.c, genpeep.c, genrecog.c,
gensupport.c, gensupport.h, ggc-callbacks.c, ggc-common.c,
ggc-none.c, ggc-page.c, ggc-simple.c, ggc.h, global.c,
graph.c, graph.h, gthr-aix.h, gthr-dce.h, gthr-posix.h,
gthr-rtems.h, gthr-single.h, gthr-solaris.h, gthr-vxworks.h,
gthr-win32.h, gthr.h, haifa-sched.c, halfpic.c, halfpic.h,
hard-reg-set.h, hwint.h, ifcvt.c, input.h, insn-addr.h,
integrate.c, integrate.h, jump.c, lcm.c, libgcc2.c,
libgcc2.h, lists.c, local-alloc.c, loop.c, loop.h,
machmode.def, machmode.h, main.c, mbchar.c, mbchar.h,
mips-tdump.c, mips-tfile.c, mklibgcc.in, mkmap-flat.awk,
mkmap-symver.awk, optabs.c, output.h, params.c, params.def,
params.h, predict.c, predict.def, predict.h, prefix.c,
prefix.h, print-rtl.c, print-tree.c, profile.c, protoize.c,
read-rtl.c, real.c, real.h, recog.c, recog.h, reg-stack.c,
regclass.c, regmove.c, regrename.c, regs.h, reload.c,
reload.h, reload1.c, reorg.c, resource.c, resource.h, rtl.c,
rtl.def, rtl.h, rtlanal.c, sbitmap.c, sbitmap.h,
sched-deps.c, sched-ebb.c, sched-int.h, sched-rgn.c,
sched-vis.c, sdbout.c, sdbout.h, sibcall.c, simplify-rtx.c,
ssa-ccp.c, ssa-dce.c, ssa.c, ssa.h, stmt.c, stor-layout.c,
stringpool.c, system.h, timevar.c, timevar.def, timevar.h,
tlink.c, toplev.c, toplev.h, tree.c, tree.def, tree.h,
tsystem.h, unroll.c, unwind-dw2-fde.c, unwind-dw2-fde.h,
unwind-dw2.c, unwind-pe.h, unwind-sjlj.c, unwind.h,
unwind.inc, varasm.c, varray.c, varray.h, xcoffout.c,
xcoffout.h: replace "GNU CC" with "GCC".
From-SVN: r45105
2001-08-22 16:35:51 +02:00
|
|
|
GCC is distributed in the hope that it will be useful, but WITHOUT
|
|
|
|
|
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
|
|
|
|
|
or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
|
|
|
|
|
License for more details.
|
1995-12-17 13:08:31 +01:00
|
|
|
|
2000-01-24 21:10:04 +01:00
|
|
|
You should have received a copy of the GNU General Public License
|
2007-07-26 10:37:01 +02:00
|
|
|
along with GCC; see the file COPYING3. If not see
|
|
|
|
|
<http://www.gnu.org/licenses/>. */
|
1995-12-17 13:08:31 +01:00
|
|
|
|
|
|
|
|
/* This is a trivial test program which may be useful to people who are
|
|
|
|
|
porting the GCC or G++ compilers to a new system. The intent here is
|
|
|
|
|
merely to check that all floating-point operations have been provided
|
|
|
|
|
by the port. (Note that I say ``provided'' rather than ``implemented''.)
|
|
|
|
|
|
|
|
|
|
To use this file, simply compile it (with GCC or G++) and then try to
|
|
|
|
|
link it in the normal way (also using GCC or G++ respectively). If
|
|
|
|
|
all of the floating -point operations (including conversions) have
|
|
|
|
|
been provided, then this file will link without incident. If however
|
|
|
|
|
one or more of the primitive floating-point operations have not been
|
|
|
|
|
properly provided, you will get link-time errors indicating which
|
|
|
|
|
floating-point operations are unavailable.
|
|
|
|
|
|
|
|
|
|
This file will typically be used when porting the GNU compilers to
|
|
|
|
|
some system which lacks floating-point hardware, and for which
|
|
|
|
|
software emulation routines (for FP ops) are needed in order to
|
|
|
|
|
complete the port. */
|
|
|
|
|
|
|
|
|
|
#if 0
|
|
|
|
|
#include <math.h>
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
extern double acos (double);
|
|
|
|
|
extern double asin (double);
|
|
|
|
|
extern double atan (double);
|
|
|
|
|
extern double atan2 (double, double);
|
|
|
|
|
extern double cos (double);
|
|
|
|
|
extern double sin (double);
|
|
|
|
|
extern double tan (double);
|
|
|
|
|
extern double cosh (double);
|
|
|
|
|
extern double sinh (double);
|
|
|
|
|
extern double tanh (double);
|
|
|
|
|
extern double exp (double);
|
|
|
|
|
extern double frexp (double, int *);
|
|
|
|
|
extern double ldexp (double, int);
|
|
|
|
|
extern double log (double);
|
|
|
|
|
extern double log10 (double);
|
|
|
|
|
extern double modf (double, double *);
|
|
|
|
|
extern double pow (double, double);
|
|
|
|
|
extern double sqrt (double);
|
|
|
|
|
extern double ceil (double);
|
|
|
|
|
extern double fabs (double);
|
|
|
|
|
extern double floor (double);
|
|
|
|
|
extern double fmod (double, double);
|
|
|
|
|
|
|
|
|
|
int i1, i2 = 2;
|
|
|
|
|
|
|
|
|
|
volatile signed char sc;
|
|
|
|
|
volatile unsigned char uc;
|
|
|
|
|
|
|
|
|
|
volatile signed short ss;
|
|
|
|
|
volatile unsigned short us;
|
|
|
|
|
|
|
|
|
|
volatile signed int si;
|
|
|
|
|
volatile unsigned int ui;
|
|
|
|
|
|
|
|
|
|
volatile signed long sl;
|
|
|
|
|
volatile unsigned long ul;
|
|
|
|
|
|
|
|
|
|
volatile float f1 = 1.0, f2 = 1.0, f3 = 1.0;
|
|
|
|
|
volatile double d1 = 1.0, d2 = 1.0, d3 = 1.0;
|
|
|
|
|
volatile long double D1 = 1.0, D2 = 1.0, D3 = 1.0;
|
|
|
|
|
|
|
|
|
|
int
|
2003-07-12 13:29:18 +02:00
|
|
|
main (void)
|
1995-12-17 13:08:31 +01:00
|
|
|
{
|
|
|
|
|
/* TYPE: float */
|
|
|
|
|
|
|
|
|
|
f1 = -f2;
|
|
|
|
|
f1 = f2 + f3;
|
|
|
|
|
f1 = f2 - f3;
|
|
|
|
|
f1 = f2 * f3;
|
|
|
|
|
f1 = f2 / f3;
|
|
|
|
|
f1 += f2;
|
|
|
|
|
f1 -= f2;
|
|
|
|
|
f1 *= f2;
|
|
|
|
|
f1 /= f2;
|
|
|
|
|
|
|
|
|
|
si = f1 == f2;
|
|
|
|
|
si = f1 != f2;
|
|
|
|
|
si = f1 > f2;
|
|
|
|
|
si = f1 < f2;
|
|
|
|
|
si = f1 >= f2;
|
|
|
|
|
si = f1 <= f2;
|
|
|
|
|
|
2000-01-24 21:10:04 +01:00
|
|
|
si = __builtin_isgreater (f1, f2);
|
|
|
|
|
si = __builtin_isgreaterequal (f1, f2);
|
|
|
|
|
si = __builtin_isless (f1, f2);
|
|
|
|
|
si = __builtin_islessequal (f1, f2);
|
|
|
|
|
si = __builtin_islessgreater (f1, f2);
|
|
|
|
|
si = __builtin_isunordered (f1, f2);
|
|
|
|
|
|
1995-12-17 13:08:31 +01:00
|
|
|
sc = f1;
|
|
|
|
|
uc = f1;
|
|
|
|
|
ss = f1;
|
|
|
|
|
us = f1;
|
|
|
|
|
si = f1;
|
|
|
|
|
ui = f1;
|
|
|
|
|
sl = f1;
|
|
|
|
|
ul = f1;
|
|
|
|
|
d1 = f1;
|
|
|
|
|
D1 = f1;
|
|
|
|
|
|
|
|
|
|
f1 = sc;
|
|
|
|
|
f1 = uc;
|
|
|
|
|
f1 = ss;
|
|
|
|
|
f1 = us;
|
|
|
|
|
f1 = si;
|
|
|
|
|
f1 = ui;
|
|
|
|
|
f1 = sl;
|
|
|
|
|
f1 = ul;
|
|
|
|
|
f1 = d1;
|
|
|
|
|
f1 = D1;
|
|
|
|
|
|
|
|
|
|
d1 = -d2;
|
|
|
|
|
d1 = d2 + d3;
|
|
|
|
|
d1 = d2 - d3;
|
|
|
|
|
d1 = d2 * d3;
|
|
|
|
|
d1 = d2 / d3;
|
|
|
|
|
d1 += d2;
|
|
|
|
|
d1 -= d2;
|
|
|
|
|
d1 *= d2;
|
|
|
|
|
d1 /= d2;
|
|
|
|
|
|
|
|
|
|
si = d1 == d2;
|
|
|
|
|
si = d1 != d2;
|
|
|
|
|
si = d1 > d2;
|
|
|
|
|
si = d1 < d2;
|
|
|
|
|
si = d1 >= d2;
|
|
|
|
|
si = d1 <= d2;
|
|
|
|
|
|
2000-01-24 21:10:04 +01:00
|
|
|
si = __builtin_isgreater (d1, d2);
|
|
|
|
|
si = __builtin_isgreaterequal (d1, d2);
|
|
|
|
|
si = __builtin_isless (d1, d2);
|
|
|
|
|
si = __builtin_islessequal (d1, d2);
|
|
|
|
|
si = __builtin_islessgreater (d1, d2);
|
|
|
|
|
si = __builtin_isunordered (d1, d2);
|
|
|
|
|
|
1995-12-17 13:08:31 +01:00
|
|
|
sc = d1;
|
|
|
|
|
uc = d1;
|
|
|
|
|
ss = d1;
|
|
|
|
|
us = d1;
|
|
|
|
|
si = d1;
|
|
|
|
|
ui = d1;
|
|
|
|
|
sl = d1;
|
|
|
|
|
ul = d1;
|
|
|
|
|
f1 = d1;
|
|
|
|
|
D1 = d1;
|
|
|
|
|
|
|
|
|
|
d1 = sc;
|
|
|
|
|
d1 = uc;
|
|
|
|
|
d1 = ss;
|
|
|
|
|
d1 = us;
|
|
|
|
|
d1 = si;
|
|
|
|
|
d1 = ui;
|
|
|
|
|
d1 = sl;
|
|
|
|
|
d1 = ul;
|
|
|
|
|
d1 = f1;
|
|
|
|
|
d1 = D1;
|
|
|
|
|
|
|
|
|
|
D1 = -D2;
|
|
|
|
|
D1 = D2 + D3;
|
|
|
|
|
D1 = D2 - D3;
|
|
|
|
|
D1 = D2 * D3;
|
|
|
|
|
D1 = D2 / D3;
|
|
|
|
|
D1 += D2;
|
|
|
|
|
D1 -= D2;
|
|
|
|
|
D1 *= D2;
|
|
|
|
|
D1 /= D2;
|
|
|
|
|
|
|
|
|
|
si = D1 == D2;
|
|
|
|
|
si = D1 != D2;
|
|
|
|
|
si = D1 > D2;
|
|
|
|
|
si = D1 < D2;
|
|
|
|
|
si = D1 >= D2;
|
|
|
|
|
si = D1 <= D2;
|
|
|
|
|
|
2000-01-24 21:10:04 +01:00
|
|
|
si = __builtin_isgreater (D1, D2);
|
|
|
|
|
si = __builtin_isgreaterequal (D1, D2);
|
|
|
|
|
si = __builtin_isless (D1, D2);
|
|
|
|
|
si = __builtin_islessequal (D1, D2);
|
|
|
|
|
si = __builtin_islessgreater (D1, D2);
|
|
|
|
|
si = __builtin_isunordered (D1, D2);
|
|
|
|
|
|
1995-12-17 13:08:31 +01:00
|
|
|
sc = D1;
|
|
|
|
|
uc = D1;
|
|
|
|
|
ss = D1;
|
|
|
|
|
us = D1;
|
|
|
|
|
si = D1;
|
|
|
|
|
ui = D1;
|
|
|
|
|
sl = D1;
|
|
|
|
|
ul = D1;
|
|
|
|
|
f1 = D1;
|
|
|
|
|
d1 = D1;
|
|
|
|
|
|
|
|
|
|
D1 = sc;
|
|
|
|
|
D1 = uc;
|
|
|
|
|
D1 = ss;
|
|
|
|
|
D1 = us;
|
|
|
|
|
D1 = si;
|
|
|
|
|
D1 = ui;
|
|
|
|
|
D1 = sl;
|
|
|
|
|
D1 = ul;
|
|
|
|
|
D1 = f1;
|
|
|
|
|
D1 = d1;
|
|
|
|
|
|
|
|
|
|
d1 = acos (d2);
|
|
|
|
|
d1 = asin (d2);
|
|
|
|
|
d1 = atan (d2);
|
|
|
|
|
d1 = atan2 (d2, d3);
|
|
|
|
|
d1 = cos (d2);
|
|
|
|
|
d1 = sin (d2);
|
|
|
|
|
d1 = tan (d2);
|
|
|
|
|
d1 = cosh (d2);
|
|
|
|
|
d1 = sinh (d2);
|
|
|
|
|
d1 = tanh (d2);
|
|
|
|
|
d1 = exp (d2);
|
|
|
|
|
d1 = frexp (d2, &i1);
|
|
|
|
|
d1 = ldexp (d2, i2);
|
|
|
|
|
d1 = log (d2);
|
|
|
|
|
d1 = log10 (d2);
|
|
|
|
|
d1 = modf (d2, &d3);
|
|
|
|
|
d1 = pow (d2, d3);
|
|
|
|
|
d1 = sqrt (d2);
|
|
|
|
|
d1 = ceil (d2);
|
|
|
|
|
d1 = fabs (d2);
|
|
|
|
|
d1 = floor (d2);
|
|
|
|
|
d1 = fmod (d2, d3);
|
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
