/* AIX FPU-related code.
- Copyright (C) 2005-2014 Free Software Foundation, Inc.
+ Copyright (C) 2005-2018 Free Software Foundation, Inc.
Contributed by Francois-Xavier Coudert <coudert@clipper.ens.fr>
This file is part of the GNU Fortran runtime library (libgfortran).
}
-
-
int
get_fpu_rounding_mode (void)
{
case FE_TOWARDZERO:
return GFC_FPE_TOWARDZERO;
#endif
+
default:
- return GFC_FPE_INVALID;
+ return 0; /* Should be unreachable. */
}
}
rnd_mode = FE_TOWARDZERO;
break;
#endif
+
default:
- return;
+ return; /* Should be unreachable. */
}
fesetround (rnd_mode);
#endif
default:
- return 0;
+ return 0; /* Should be unreachable. */
}
}