This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: [rfc] add real*12 and real*16
- From: Richard Henderson <rth at twiddle dot net>
- To: fortran at gcc dot gnu dot org
- Date: Wed, 25 Aug 2004 22:34:34 -0700
- Subject: Re: [rfc] add real*12 and real*16
- References: <20040824183341.GA27677@redhat.com>
Based on Paul's semi-approval, I went ahead and committed this piece.
Other step-by-step pieces will be coming as I write them.
r~
* gfortran.fortran-torture/execute/intrinsic_sr_kind.f90: Disable
the bits that expect kind=8 to be the largest real kind.
Index: gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_sr_kind.f90
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_sr_kind.f90,v
retrieving revision 1.2
diff -c -p -d -r1.2 intrinsic_sr_kind.f90
*** gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_sr_kind.f90 13 May 2004 06:40:53 -0000 1.2
--- gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_sr_kind.f90 24 Aug 2004 18:23:32 -0000
*************** Program test_sr_kind
*** 18,25 ****
res = selected_real_kind (r = i8)
if (res .ne. 8) call abort
! res = selected_real_kind (r = (i8 + 1))
! if (res .ne. -2) call abort
res = selected_real_kind (p = precision (r4))
if (res .ne. 4) call abort
--- 18,26 ----
res = selected_real_kind (r = i8)
if (res .ne. 8) call abort
! ! We can in fact have kinds wider than r8. How do we want to check?
! ! res = selected_real_kind (r = (i8 + 1))
! ! if (res .ne. -2) call abort
res = selected_real_kind (p = precision (r4))
if (res .ne. 4) call abort
*************** Program test_sr_kind
*** 30,37 ****
res = selected_real_kind (p = precision (r4), r = i8)
if (res .ne. 8) call abort
! res = selected_real_kind (p = precision (r4), r = i8 + 1)
! if (res .ne. -2) call abort
res = selected_real_kind (p = precision (r8))
if (res .ne. 8) call abort
--- 31,38 ----
res = selected_real_kind (p = precision (r4), r = i8)
if (res .ne. 8) call abort
! ! res = selected_real_kind (p = precision (r4), r = i8 + 1)
! ! if (res .ne. -2) call abort
res = selected_real_kind (p = precision (r8))
if (res .ne. 8) call abort
*************** Program test_sr_kind
*** 42,61 ****
res = selected_real_kind (p = precision (r8), r = i8)
if (res .ne. 8) call abort
! res = selected_real_kind (p = precision (r8), r = i8 + 1)
! if (res .ne. -2) call abort
! res = selected_real_kind (p = (precision (r8) + 1))
! if (res .ne. -1) call abort
! res = selected_real_kind (p = (precision (r8) + 1), r = i4)
! if (res .ne. -1) call abort
! res = selected_real_kind (p = (precision (r8) + 1), r = i8)
! if (res .ne. -1) call abort
! res = selected_real_kind (p = (precision (r8) + 1), r = i8 + 1)
! if (res .ne. -3) call abort
end
--- 43,62 ----
res = selected_real_kind (p = precision (r8), r = i8)
if (res .ne. 8) call abort
! ! res = selected_real_kind (p = precision (r8), r = i8 + 1)
! ! if (res .ne. -2) call abort
! ! res = selected_real_kind (p = (precision (r8) + 1))
! ! if (res .ne. -1) call abort
! ! res = selected_real_kind (p = (precision (r8) + 1), r = i4)
! ! if (res .ne. -1) call abort
! ! res = selected_real_kind (p = (precision (r8) + 1), r = i8)
! ! if (res .ne. -1) call abort
! ! res = selected_real_kind (p = (precision (r8) + 1), r = i8 + 1)
! ! if (res .ne. -3) call abort
end