[Bug fortran/17117] New: Unimplemented intrinsic HUGE / Unimplemented intrinsic TINY

[Bug fortran/17117] New: Unimplemented intrinsic HUGE / Unimplemented intrinsic TINY

[c dot lemmen at fz-juelich dot de]

Both intrinsics HUGE and TINY are currently not implemented (not in g77 either).
And they are not marked gfc_todo; shouldn't they appear there?

TINY returns the smallest positive value for a real argument
HUGE returns the largest number in the integer or real numeric model

***** Excerpt from cray manpage ************

NAME
     TINY - Returns the smallest positive value for a real argument
model

SYNOPSIS
     TINY ([X=]x)

STANDARDS
     Fortran

DESCRIPTION
     The TINY intrinsic function returns the smallest positive number in
     the real number model that represents number of the same type and kind
     type parameter as the argument.  For more information on the real
     number model, see the MODELS(3I) man page.  It accepts the following
     argument:

     x         Must be of type real.  It may be scalar or array valued.

     TINY is an inquiry function.  The name of this intrinsic cannot be
     passed as an argument.

RETURN VALUES
     The result is a scalar with the same type and kind type parameter as
     x.  The result has the value
      e sub min-1
     b           , where b and e
                                 min
     (represented as "e sub min" in the previous equation) are as defined
     in the real number model, which represents numbers of the same type
     and kind type parameter as x.

-- 
           Summary: Unimplemented intrinsic HUGE / Unimplemented intrinsic
                    TINY
           Product: gcc
           Version: 3.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: c dot lemmen at fz-juelich dot de
                CC: gcc-bugs at gcc dot gnu dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17117

[Bug fortran/17117] Unimplemented intrinsic HUGE / Unimplemented intrinsic TINY

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2004-08-20 09:11 -------
The man pages are at: <http://www.cray.com/cgi-bin/swpubs/craydoc30/manpage_display.cgi?
id=tiny&PL=libintm&Rel=52&Cat=3&Vol=3i> and <http://www.cray.com/cgi-bin/swpubs/craydoc30/
manpage_display.cgi?id=huge&PL=libintm&Rel=52&Cat=3&Vol=3i>.

Confirmed.

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
           Severity|normal                      |enhancement
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|                            |1
   Last reconfirmed|0000-00-00 00:00:00         |2004-08-20 09:11:06
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17117

[Bug fortran/17117] Unimplemented intrinsic HUGE / Unimplemented intrinsic TINY

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2004-08-20 09:14 -------
I should note that we have actually have almost an implentation of HUGE in gfortran already, used for 
AINT and ANINT.  Likewise for TINY in SPACING.

-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17117

[Bug fortran/17117] Unimplemented intrinsic HUGE / Unimplemented intrinsic TINY

[sgk at troutmask dot apl dot washington dot edu]

------- Additional Comments From sgk at troutmask dot apl dot washington dot edu  2004-08-20 16:19 -------
Can you explain in more detail what you believe is missing?

program tinyhuge
   real(4) x
   real(8) y
   print*, 'tiny(x) = ', tiny(x)
   print*, 'huge(x) = ', huge(x)
   print*, 'tiny(y) = ', tiny(y)
   print*, 'huge(y) = ', huge(y)
end program tinyhuge


dhcp-78-96:sgk[212] cat tiny.f90
program tinyhuge
   real(4) x
   real(8) y
   print*, 'tiny(x) = ', tiny(x)
   print*, 'huge(x) = ', huge(x)
   print*, 'tiny(y) = ', tiny(y)
   print*, 'huge(y) = ', huge(y)
end program tinyhuge
dhcp-78-96:sgk[213] gfortran -static -o tiny tiny.f90
dhcp-78-96:sgk[215] ./tiny
 tiny(x) =   1.1754943E-38    
 huge(x) =   3.4028234E+38    
 tiny(y) =   2.225073858507201E-308     
^C

Note, huge(y) isn't printed because I believe we have an issue
with the printing routines on my FreeBSD AMD64 system (i.e.,
a 64-bit versus 32-bit problem).



-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17117

[Bug fortran/17117] Unimplemented intrinsic HUGE / Unimplemented intrinsic TINY

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2004-08-20 16:22 -------
Actually there are implemented so closing as fixed.

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |RESOLVED
         Resolution|                            |FIXED
   Target Milestone|---                         |3.5.0


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17117