diff options
Diffstat (limited to 'libgfortran/config/fpu-generic.h')
-rw-r--r-- | libgfortran/config/fpu-generic.h | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/libgfortran/config/fpu-generic.h b/libgfortran/config/fpu-generic.h index 234e6e2cd59..72de91b28c7 100644 --- a/libgfortran/config/fpu-generic.h +++ b/libgfortran/config/fpu-generic.h @@ -1,8 +1,8 @@ /* Fallback FPU-related code (for systems not otherwise supported). - Copyright 2005, 2007, 2009 Free Software Foundation, Inc. + Copyright 2005, 2007, 2009, 2011 Free Software Foundation, Inc. Contributed by Francois-Xavier Coudert <coudert@clipper.ens.fr> -This file is part of the GNU Fortran 95 runtime library (libgfortran). +This file is part of the GNU Fortran runtime library (libgfortran). Libgfortran is free software; you can redistribute it and/or modify it under the terms of the GNU General Public @@ -32,21 +32,21 @@ void set_fpu (void) { if (options.fpe & GFC_FPE_INVALID) - st_printf ("Fortran runtime warning: IEEE 'invalid operation' " - "exception not supported.\n"); + estr_write ("Fortran runtime warning: IEEE 'invalid operation' " + "exception not supported.\n"); if (options.fpe & GFC_FPE_DENORMAL) - st_printf ("Fortran runtime warning: IEEE 'denormal number' " - "exception not supported.\n"); + estr_write ("Fortran runtime warning: IEEE 'denormal number' " + "exception not supported.\n"); if (options.fpe & GFC_FPE_ZERO) - st_printf ("Fortran runtime warning: IEEE 'division by zero' " - "exception not supported.\n"); + estr_write ("Fortran runtime warning: IEEE 'division by zero' " + "exception not supported.\n"); if (options.fpe & GFC_FPE_OVERFLOW) - st_printf ("Fortran runtime warning: IEEE 'overflow' " - "exception not supported.\n"); + estr_write ("Fortran runtime warning: IEEE 'overflow' " + "exception not supported.\n"); if (options.fpe & GFC_FPE_UNDERFLOW) - st_printf ("Fortran runtime warning: IEEE 'underflow' " - "exception not supported.\n"); + estr_write ("Fortran runtime warning: IEEE 'underflow' " + "exception not supported.\n"); if (options.fpe & GFC_FPE_PRECISION) - st_printf ("Fortran runtime warning: IEEE 'loss of precision' " - "exception not supported.\n"); + estr_write ("Fortran runtime warning: IEEE 'loss of precision' " + "exception not supported.\n"); } |