* config/xtensa/xtensa.c (xtensa_emit_loop_end): Only use "nop.n"
[official-gcc.git] / libf2c / libF77 / h_abs.c
blob9db19ca34e9506cda508a72c76f056b53d796fbb
1 #include "f2c.h"
3 shortint
4 h_abs (shortint * x)
6 if (*x >= 0)
7 return (*x);
8 return (-*x);