gcc/libf2c/libF77/i_dim.c

#include "f2c.h"

integer
i_dim (integer * a, integer * b)
{
  return (*a > *b ? *a - *b : 0);
}
* Previous contents of gcc/f/runtime moved into toplevel "libf2c" directory. From-SVN: r17568 1998-01-31 18:37:08 -07:00			`#include "f2c.h"`

: Fix formatting. libF77/: Fix formatting. libI77/: Likewise. libU77/*: Likewise. From-SVN: r54145 2002-06-01 12:38:32 +00:00			`integer`
			`i_dim (integer * a, integer * b)`
* Previous contents of gcc/f/runtime moved into toplevel "libf2c" directory. From-SVN: r17568 1998-01-31 18:37:08 -07:00			`{`
: Fix formatting. libF77/: Fix formatting. libI77/: Likewise. libU77/*: Likewise. From-SVN: r54145 2002-06-01 12:38:32 +00:00			`return (a > b ? a - b : 0);`
* Previous contents of gcc/f/runtime moved into toplevel "libf2c" directory. From-SVN: r17568 1998-01-31 18:37:08 -07:00			`}`