FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR libfortran/17195 (Infinite loop in output_float in libgfortran/io/write.c)

Browse source 
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
This commit is contained in:
Paul Brook 2004-08-28 19:48:02 +00:00 • committed by Paul Brook
parent 39b8ce7f98
commit 7984a2f04b
6 changed files with 399 additions and 254 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libgfortran/libgfortran.h
View file

@ -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);