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

["sgk at troutmask dot apl dot washington dot edu" <gcc-bugzilla at gcc dot gnu dot org>]

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