This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/52153] REAL128 gives extended precision, not quad precision
- From: "kargl at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Tue, 07 Feb 2012 19:41:39 +0000
- Subject: [Bug fortran/52153] REAL128 gives extended precision, not quad precision
- Auto-submitted: auto-generated
- References: <bug-52153-4@http.gcc.gnu.org/bugzilla/>
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