diff options
| author | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-08-28 19:48:02 +0000 |
|---|---|---|
| committer | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-08-28 19:48:02 +0000 |
| commit | a2784d66a1b5767f47ec8d93f97cc73008af89c3 (patch) | |
| tree | 0371510fa89dbbdbb79289c112c2ac3536729a99 /libgfortran/libgfortran.h | |
| parent | 25696d3f4c3e989d1ee68b70e567ce5fd21ee7c0 (diff) | |
| download | gcc-a2784d66a1b5767f47ec8d93f97cc73008af89c3.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@86701 138bc75d-0d04-0410-961f-82ee72b054a4
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 6cc26492898..b87dde69471 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); |