diff options
| author | Paul Brook <paul@codesourcery.com> | 2004-08-28 19:48:02 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-08-28 19:48:02 +0000 |
| commit | 7984a2f04bb29eff5850be9f99c2ef0f879c862a (patch) | |
| tree | 0371510fa89dbbdbb79289c112c2ac3536729a99 /libgfortran/libgfortran.h | |
| parent | 39b8ce7f98a09a10142cfb3dd9bfe4636dd86d3d (diff) | |
| download | gcc-7984a2f04bb29eff5850be9f99c2ef0f879c862a.zip gcc-7984a2f04bb29eff5850be9f99c2ef0f879c862a.tar.gz gcc-7984a2f04bb29eff5850be9f99c2ef0f879c862a.tar.bz2 | |
re PR libfortran/17195 (Infinite loop in output_float in libgfortran/io/write.c)
PR libfortran/17195
* libgfortran.h (rtoa): Remove prototype.
* runtime/error.c (rtoa): Remove.
* io/write.c (calculate_G_format): Don't add blanks if E format is
used. Add correct number of blanks when exponent width is specified.
(output_float): Rewrite.
testsuite/
* gfortran.dg/edit_real_1.f90: New test.
From-SVN: r86701
Diffstat (limited to 'libgfortran/libgfortran.h')
| -rw-r--r-- | libgfortran/libgfortran.h | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h index 6cc2649..b87dde6 100644 --- a/libgfortran/libgfortran.h +++ b/libgfortran/libgfortran.h @@ -250,9 +250,6 @@ void get_args (int *, char ***); /* error.c */ -#define rtoa prefix(rtoa) -char *rtoa (double f, int length, int oprec); - #define itoa prefix(itoa) char *itoa (int64_t); |