[Bug libfortran/22436] New: print *,tiny(1._10) yields asterisks

[Bug libfortran/22436] New: print *,tiny(1._10) yields asterisks

[tkoenig at gcc dot gnu dot org]

$ 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

[Bug libfortran/22436] print *,tiny(1._10) yields asterisks

[pinskia at gcc dot gnu dot org]

------- 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

[Bug libfortran/22436] print *,tiny(1._10) yields asterisks

[tkoenig at gcc dot gnu dot org]

------- 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

[Bug libfortran/22436] print *,tiny(1._10) yields asterisks

[pinskia at gcc dot gnu dot org]

------- 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

[Bug libfortran/22436] print *,tiny(1._10) yields asterisks

[fxcoudert at gcc dot gnu dot org]

------- 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

[Bug libfortran/22436] print *,tiny(1._10) yields asterisks

[fxcoudert at gcc dot gnu dot org]

------- 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

[Bug libfortran/22436] print *,tiny(1._10) yields asterisks

[cvs-commit at gcc dot gnu dot org]

------- 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

[Bug libfortran/22436] print *,tiny(1._10) yields asterisks

[fxcoudert at gcc dot gnu dot org]

------- 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