* decl.c (xref_basetypes): Refactor.

[pf3gnuchains/gcc-fork.git] / libf2c / libF77 / i_mod.c

#include "f2c.h"

integer
i_mod (integer * a, integer * b)
{
  return (*a % *b);
}