diff options
| author | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-05-14 07:55:51 +0000 |
|---|---|---|
| committer | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-05-14 07:55:51 +0000 |
| commit | abe12f3ee643ba6397424e0f6bc1e7c661e9d05c (patch) | |
| tree | cd0c97323c6980b35b95ce189ac0bdc597d9c4dc /libgfortran/config/fpu-generic.h | |
| parent | 96cb28340343e35fc361b061ad2c55336ef613c7 (diff) | |
| download | gcc-abe12f3ee643ba6397424e0f6bc1e7c661e9d05c.tar.gz | |
Error printing thread safety, remove GFORTRAN_USE_STDERR
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@173749 138bc75d-0d04-0410-961f-82ee72b054a4
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"); } |