public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/37747] New: [4.4 Regression]: Errors when printing real(16)
@ 2008-10-06 13:22 dominiq at lps dot ens dot fr
2008-10-06 13:29 ` [Bug fortran/37747] " dominiq at lps dot ens dot fr
` (4 more replies)
0 siblings, 5 replies; 6+ messages in thread
From: dominiq at lps dot ens dot fr @ 2008-10-06 13:22 UTC (permalink / raw)
To: gcc-bugs
With revision 140892 I get the following failures in 32 bit mode (but not with
-m64):
FAIL: gfortran.dg/large_real_kind_1.f90 -O0 execution test
FAIL: gfortran.dg/large_real_kind_1.f90 -O1 execution test
FAIL: gfortran.dg/large_real_kind_1.f90 -O2 execution test
FAIL: gfortran.dg/large_real_kind_1.f90 -O3 -fomit-frame-pointer execution
test
FAIL: gfortran.dg/large_real_kind_1.f90 -O3 -fomit-frame-pointer
-funroll-loops execution test
FAIL: gfortran.dg/large_real_kind_1.f90 -O3 -fomit-frame-pointer
-funroll-all-loops -finline-functions execution test
FAIL: gfortran.dg/large_real_kind_1.f90 -O3 -g execution test
FAIL: gfortran.dg/large_real_kind_1.f90 -Os execution test
The following reduced test
! { dg-do run }
! { dg-require-effective-target fortran_large_real }
program test
implicit none
integer,parameter :: k = selected_real_kind (precision (0.0_8) + 1)
real(kind=k) :: x
character(len=20) :: c1, c2
print *, k
x = huge(x)
write (c1,'(G20.10E5)') x
write (c2,'(G20.10E5)') -x
print *, huge(x)/2.0_k
print *, huge(x), nearest(huge(x), -1.0_k)
print *, x, c1
print *, c2
c2(1:1) = ' '
x = tiny(x)
write (c1,'(G20.10E5)') x
write (c2,'(G20.10E5)') -x
print *, tiny(x), nearest(tiny(x), 1.0_k)
print *, x, c1
print *, c2
c2(1:1) = ' '
if (c1 /= c2) call abort
end program test
gives
16
**************************************
**************************************
**************************************
************************************** *************
*************
0.000000000000000000
0.000000000000000000
0.000000000000000000 0.000000
-0.000000
Abort
in 32 bit mode and
16
4.49423283715578976932326297697256183E+0307
8.98846567431157953864652595394512367E+0307
8.98846567431157953864652595394490209E+0307
8.98846567431157953864652595394512367E+0307 0.8988465674E+00308
-0.8988465674E+00308
2.00416836000897277799610805135016205E-0292
2.00416836000897277799610805135020213E-0292
2.00416836000897277799610805135016205E-0292 0.2004168360E-00291
-0.2004168360E-00291
in 64 bit mode.
--
Summary: [4.4 Regression]: Errors when printing real(16)
Product: gcc
Version: 4.4.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: dominiq at lps dot ens dot fr
GCC build triplet: powerpc-apple-darwin9
GCC host triplet: powerpc-apple-darwin9
GCC target triplet: powerpc-apple-darwin9
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=37747
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug fortran/37747] [4.4 Regression]: Errors when printing real(16)
2008-10-06 13:22 [Bug fortran/37747] New: [4.4 Regression]: Errors when printing real(16) dominiq at lps dot ens dot fr
@ 2008-10-06 13:29 ` dominiq at lps dot ens dot fr
2008-10-06 21:16 ` pinskia at gcc dot gnu dot org
` (3 subsequent siblings)
4 siblings, 0 replies; 6+ messages in thread
From: dominiq at lps dot ens dot fr @ 2008-10-06 13:29 UTC (permalink / raw)
To: gcc-bugs
------- Comment #1 from dominiq at lps dot ens dot fr 2008-10-06 13:27 -------
I have forgotten to say that revision 140513 is working.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=37747
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug fortran/37747] [4.4 Regression]: Errors when printing real(16)
2008-10-06 13:22 [Bug fortran/37747] New: [4.4 Regression]: Errors when printing real(16) dominiq at lps dot ens dot fr
2008-10-06 13:29 ` [Bug fortran/37747] " dominiq at lps dot ens dot fr
@ 2008-10-06 21:16 ` pinskia at gcc dot gnu dot org
2008-10-06 21:19 ` pinskia at gcc dot gnu dot org
` (2 subsequent siblings)
4 siblings, 0 replies; 6+ messages in thread
From: pinskia at gcc dot gnu dot org @ 2008-10-06 21:16 UTC (permalink / raw)
To: gcc-bugs
--
pinskia at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |pinskia at gcc dot gnu dot
| |org
Keywords| |wrong-code
Target Milestone|--- |4.4.0
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=37747
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug fortran/37747] [4.4 Regression]: Errors when printing real(16)
2008-10-06 13:22 [Bug fortran/37747] New: [4.4 Regression]: Errors when printing real(16) dominiq at lps dot ens dot fr
2008-10-06 13:29 ` [Bug fortran/37747] " dominiq at lps dot ens dot fr
2008-10-06 21:16 ` pinskia at gcc dot gnu dot org
@ 2008-10-06 21:19 ` pinskia at gcc dot gnu dot org
2008-10-07 16:03 ` dominiq at lps dot ens dot fr
2008-10-07 19:18 ` jakub at gcc dot gnu dot org
4 siblings, 0 replies; 6+ messages in thread
From: pinskia at gcc dot gnu dot org @ 2008-10-06 21:19 UTC (permalink / raw)
To: gcc-bugs
------- Comment #2 from pinskia at gcc dot gnu dot org 2008-10-06 21:18 -------
Was this fixed by:
2008-10-02 David Edelsohn <edelsohn@gnu.org>
* config/rs6000/rs6000.c (USE_FP_FOR_ARG_P): Revert
TARGET_DOUBLE_FLOAT, TARGET_SINGLE_FLOAT.
(function_arg_advance): Condition on TARGET_DOUBLE_FLOAT,
TARGET_SINGLE_FLOAT.
Revert SCALAR_FLOAT_MODE_P condition.
(function_arg): Condition on TARGET_DOUBLE_FLOAT,
TARGET_SINGLE_FLOAT.
(rs6000_function_value): Revert TARGET_DOUBLE_FLOAT,
TARGET_SINGLE_FLOAT.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=37747
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug fortran/37747] [4.4 Regression]: Errors when printing real(16)
2008-10-06 13:22 [Bug fortran/37747] New: [4.4 Regression]: Errors when printing real(16) dominiq at lps dot ens dot fr
` (2 preceding siblings ...)
2008-10-06 21:19 ` pinskia at gcc dot gnu dot org
@ 2008-10-07 16:03 ` dominiq at lps dot ens dot fr
2008-10-07 19:18 ` jakub at gcc dot gnu dot org
4 siblings, 0 replies; 6+ messages in thread
From: dominiq at lps dot ens dot fr @ 2008-10-07 16:03 UTC (permalink / raw)
To: gcc-bugs
------- Comment #3 from dominiq at lps dot ens dot fr 2008-10-07 16:01 -------
> Was this fixed by: ...
The problem is no longer here at revision 140915. So the answer is probably
yes, but I am not ready to dig any further. So this pr can probably closed.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=37747
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug fortran/37747] [4.4 Regression]: Errors when printing real(16)
2008-10-06 13:22 [Bug fortran/37747] New: [4.4 Regression]: Errors when printing real(16) dominiq at lps dot ens dot fr
` (3 preceding siblings ...)
2008-10-07 16:03 ` dominiq at lps dot ens dot fr
@ 2008-10-07 19:18 ` jakub at gcc dot gnu dot org
4 siblings, 0 replies; 6+ messages in thread
From: jakub at gcc dot gnu dot org @ 2008-10-07 19:18 UTC (permalink / raw)
To: gcc-bugs
------- Comment #4 from jakub at gcc dot gnu dot org 2008-10-07 19:16 -------
Fixed.
--
jakub at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |RESOLVED
Resolution| |FIXED
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=37747
^ permalink raw reply [flat|nested] 6+ messages in thread
end of thread, other threads:[~2008-10-07 19:18 UTC | newest]
Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2008-10-06 13:22 [Bug fortran/37747] New: [4.4 Regression]: Errors when printing real(16) dominiq at lps dot ens dot fr
2008-10-06 13:29 ` [Bug fortran/37747] " dominiq at lps dot ens dot fr
2008-10-06 21:16 ` pinskia at gcc dot gnu dot org
2008-10-06 21:19 ` pinskia at gcc dot gnu dot org
2008-10-07 16:03 ` dominiq at lps dot ens dot fr
2008-10-07 19:18 ` jakub at gcc dot gnu dot org
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).