public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug libfortran/22436] New: print *,tiny(1._10) yields asterisks
@ 2005-07-12 11:23 tkoenig at gcc dot gnu dot org
2005-07-12 15:31 ` [Bug libfortran/22436] " pinskia at gcc dot gnu dot org
` (6 more replies)
0 siblings, 7 replies; 8+ messages in thread
From: tkoenig at gcc dot gnu dot org @ 2005-07-12 11:23 UTC (permalink / raw)
To: gcc-bugs
$ cat kinds.f90
program main
print *,tiny(1._10)
end program main
$ gfortran kinds.f90
$ ./a.out
***********************
$ gfortran -v
Using built-in specs.
Target: ia64-unknown-linux-gnu
Configured with: ../gcc-4.1-20050709/configure --prefix=/home/zfkts --enable-
languages=c,f95
Thread model: posix
gcc version 4.1.0 20050709 (experimental)
--
Summary: print *,tiny(1._10) yields asterisks
Product: gcc
Version: unknown
Status: UNCONFIRMED
Keywords: wrong-code
Severity: normal
Priority: P2
Component: libfortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: tkoenig at gcc dot gnu dot org
CC: gcc-bugs at gcc dot gnu dot org
GCC host triplet: ia64-unknown-linux-gnu
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=22436
^ permalink raw reply [flat|nested] 8+ messages in thread
* [Bug libfortran/22436] print *,tiny(1._10) yields asterisks
2005-07-12 11:23 [Bug libfortran/22436] New: print *,tiny(1._10) yields asterisks tkoenig at gcc dot gnu dot org
@ 2005-07-12 15:31 ` pinskia at gcc dot gnu dot org
2005-07-14 7:16 ` tkoenig at gcc dot gnu dot org
` (5 subsequent siblings)
6 siblings, 0 replies; 8+ messages in thread
From: pinskia at gcc dot gnu dot org @ 2005-07-12 15:31 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From pinskia at gcc dot gnu dot org 2005-07-12 15:30 -------
Confirmed.
--
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Ever Confirmed| |1
Last reconfirmed|0000-00-00 00:00:00 |2005-07-12 15:30:29
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=22436
^ permalink raw reply [flat|nested] 8+ messages in thread
* [Bug libfortran/22436] print *,tiny(1._10) yields asterisks
2005-07-12 11:23 [Bug libfortran/22436] New: print *,tiny(1._10) yields asterisks tkoenig at gcc dot gnu dot org
2005-07-12 15:31 ` [Bug libfortran/22436] " pinskia at gcc dot gnu dot org
@ 2005-07-14 7:16 ` tkoenig at gcc dot gnu dot org
2005-07-15 22:20 ` pinskia at gcc dot gnu dot org
` (4 subsequent siblings)
6 siblings, 0 replies; 8+ messages in thread
From: tkoenig at gcc dot gnu dot org @ 2005-07-14 7:16 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From tkoenig at gcc dot gnu dot org 2005-07-14 07:12 -------
We are assuming at most three digits for the exponent,
which isn't true for a kind=10 real. This is both in
unformatted and formatted output.
$ cat tiny2.f90
program main
real(kind=10) a
a = tiny(a)
print '(G20.10)',a
print '(G20.10E4)',a
end program main
$ gfortran tiny2.f90
$ ./a.out
********************
0.3362103143E-4931
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=22436
^ permalink raw reply [flat|nested] 8+ messages in thread
* [Bug libfortran/22436] print *,tiny(1._10) yields asterisks
2005-07-12 11:23 [Bug libfortran/22436] New: print *,tiny(1._10) yields asterisks tkoenig at gcc dot gnu dot org
2005-07-12 15:31 ` [Bug libfortran/22436] " pinskia at gcc dot gnu dot org
2005-07-14 7:16 ` tkoenig at gcc dot gnu dot org
@ 2005-07-15 22:20 ` pinskia at gcc dot gnu dot org
2005-07-18 22:04 ` fxcoudert at gcc dot gnu dot org
` (3 subsequent siblings)
6 siblings, 0 replies; 8+ messages in thread
From: pinskia at gcc dot gnu dot org @ 2005-07-15 22:20 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From pinskia at gcc dot gnu dot org 2005-07-15 22:19 -------
Confirmed.
--
What |Removed |Added
----------------------------------------------------------------------------
Last reconfirmed|2005-07-12 15:30:29 |2005-07-15 22:19:43
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=22436
^ permalink raw reply [flat|nested] 8+ messages in thread
* [Bug libfortran/22436] print *,tiny(1._10) yields asterisks
2005-07-12 11:23 [Bug libfortran/22436] New: print *,tiny(1._10) yields asterisks tkoenig at gcc dot gnu dot org
` (2 preceding siblings ...)
2005-07-15 22:20 ` pinskia at gcc dot gnu dot org
@ 2005-07-18 22:04 ` fxcoudert at gcc dot gnu dot org
2005-07-19 16:50 ` fxcoudert at gcc dot gnu dot org
` (2 subsequent siblings)
6 siblings, 0 replies; 8+ messages in thread
From: fxcoudert at gcc dot gnu dot org @ 2005-07-18 22:04 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From fxcoudert at gcc dot gnu dot org 2005-07-18 21:43 -------
I noticed that one when I worked on large kinds I/O but didn't know what format
to choose for real(10) and real(16). Any ideas welcome.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=22436
^ permalink raw reply [flat|nested] 8+ messages in thread
* [Bug libfortran/22436] print *,tiny(1._10) yields asterisks
2005-07-12 11:23 [Bug libfortran/22436] New: print *,tiny(1._10) yields asterisks tkoenig at gcc dot gnu dot org
` (3 preceding siblings ...)
2005-07-18 22:04 ` fxcoudert at gcc dot gnu dot org
@ 2005-07-19 16:50 ` fxcoudert at gcc dot gnu dot org
2005-07-30 20:47 ` cvs-commit at gcc dot gnu dot org
2005-07-30 20:59 ` fxcoudert at gcc dot gnu dot org
6 siblings, 0 replies; 8+ messages in thread
From: fxcoudert at gcc dot gnu dot org @ 2005-07-19 16:50 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From fxcoudert at gcc dot gnu dot org 2005-07-19 16:48 -------
Created an attachment (id=9305)
--> (http://gcc.gnu.org/bugzilla/attachment.cgi?id=9305&action=view)
Patch
Attached patch fixes this problem, using 1PG24.15E4 as format for real(10) and
1PG40.31E4 for real(16).
--
What |Removed |Added
----------------------------------------------------------------------------
AssignedTo|unassigned at gcc dot gnu |fxcoudert at gcc dot gnu dot
|dot org |org
Status|NEW |ASSIGNED
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=22436
^ permalink raw reply [flat|nested] 8+ messages in thread
* [Bug libfortran/22436] print *,tiny(1._10) yields asterisks
2005-07-12 11:23 [Bug libfortran/22436] New: print *,tiny(1._10) yields asterisks tkoenig at gcc dot gnu dot org
` (4 preceding siblings ...)
2005-07-19 16:50 ` fxcoudert at gcc dot gnu dot org
@ 2005-07-30 20:47 ` cvs-commit at gcc dot gnu dot org
2005-07-30 20:59 ` fxcoudert at gcc dot gnu dot org
6 siblings, 0 replies; 8+ messages in thread
From: cvs-commit at gcc dot gnu dot org @ 2005-07-30 20:47 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From cvs-commit at gcc dot gnu dot org 2005-07-30 20:45 -------
Subject: Bug 22436
CVSROOT: /cvs/gcc
Module name: gcc
Changes by: fxcoudert@gcc.gnu.org 2005-07-30 20:45:03
Modified files:
libgfortran : ChangeLog
libgfortran/io : write.c
Log message:
PR libfortran/22436
* io/write.c (write_real): Add default formats for real(10) and
real(16).
Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/ChangeLog.diff?cvsroot=gcc&r1=1.272&r2=1.273
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/io/write.c.diff?cvsroot=gcc&r1=1.44&r2=1.45
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=22436
^ permalink raw reply [flat|nested] 8+ messages in thread
* [Bug libfortran/22436] print *,tiny(1._10) yields asterisks
2005-07-12 11:23 [Bug libfortran/22436] New: print *,tiny(1._10) yields asterisks tkoenig at gcc dot gnu dot org
` (5 preceding siblings ...)
2005-07-30 20:47 ` cvs-commit at gcc dot gnu dot org
@ 2005-07-30 20:59 ` fxcoudert at gcc dot gnu dot org
6 siblings, 0 replies; 8+ messages in thread
From: fxcoudert at gcc dot gnu dot org @ 2005-07-30 20:59 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From fxcoudert at gcc dot gnu dot org 2005-07-30 20:47 -------
Fixed on mainline. 4.0 branch does not have support for large real kinds, so no
need to apply there.
--
What |Removed |Added
----------------------------------------------------------------------------
Status|ASSIGNED |RESOLVED
Resolution| |FIXED
Target Milestone|--- |4.1.0
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=22436
^ permalink raw reply [flat|nested] 8+ messages in thread
end of thread, other threads:[~2005-07-30 20:47 UTC | newest]
Thread overview: 8+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2005-07-12 11:23 [Bug libfortran/22436] New: print *,tiny(1._10) yields asterisks tkoenig at gcc dot gnu dot org
2005-07-12 15:31 ` [Bug libfortran/22436] " pinskia at gcc dot gnu dot org
2005-07-14 7:16 ` tkoenig at gcc dot gnu dot org
2005-07-15 22:20 ` pinskia at gcc dot gnu dot org
2005-07-18 22:04 ` fxcoudert at gcc dot gnu dot org
2005-07-19 16:50 ` fxcoudert at gcc dot gnu dot org
2005-07-30 20:47 ` cvs-commit at gcc dot gnu dot org
2005-07-30 20:59 ` fxcoudert 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).