http://gcc.gnu.org/bugzilla/show_bug.cgi?id=52153
kargl at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |kargl at gcc dot gnu.org
--- Comment #1 from kargl at gcc dot gnu.org 2012-02-07 19:41:39 UTC ---
(In reply to comment #0)
>
> As things currently stand, to obtain quad precision reals, I have to use
> REAL(16) or REAL*16, which is non-portable; I'd rather use REAL(REAL128).
program foo
use ISO_FORTRAN_ENV
integer, parameter ::knd = selected_real_kind(p=30)
real(REAL128) x
real(knd) y
print *, kind(x), kind(y)
end program foo
troutmask:sgk[208] gfc4x -o foo foo.f90 && ./foo
10 16
Yes, this is problem. However, you can use standard
conforming code to get at REAL(16)
--
steve
