intrinsic_sr_kind.f90: Disable the bits that expect kind=8 to be the largest real kind.
* gfortran.fortran-torture/execute/intrinsic_sr_kind.f90: Disable the bits that expect kind=8 to be the largest real kind. From-SVN: r86604
This commit is contained in:
parent
7e233208cd
commit
026351f552
|
@ -1,3 +1,8 @@
|
|||
2004-08-25 Richard Henderson <rth@redhat.com>
|
||||
|
||||
* gfortran.fortran-torture/execute/intrinsic_sr_kind.f90: Disable
|
||||
the bits that expect kind=8 to be the largest real kind.
|
||||
|
||||
2004-08-25 Ziemowit Laski <zlaski@apple.com>
|
||||
|
||||
* objc.dg/const-str-3.m: Include <stdlib.h> and <memory.h>.
|
||||
|
|
|
@ -18,8 +18,9 @@ Program test_sr_kind
|
|||
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
|
||||
! 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
|
||||
|
@ -30,8 +31,8 @@ Program test_sr_kind
|
|||
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 (r4), r = i8 + 1)
|
||||
! if (res .ne. -2) call abort
|
||||
|
||||
res = selected_real_kind (p = precision (r8))
|
||||
if (res .ne. 8) call abort
|
||||
|
@ -42,20 +43,20 @@ Program test_sr_kind
|
|||
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), 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))
|
||||
! 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 = 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)
|
||||
! if (res .ne. -1) call abort
|
||||
|
||||
res = selected_real_kind (p = (precision (r8) + 1), r = i8 + 1)
|
||||
if (res .ne. -3) call abort
|
||||
! res = selected_real_kind (p = (precision (r8) + 1), r = i8 + 1)
|
||||
! if (res .ne. -3) call abort
|
||||
|
||||
end
|
||||
|
||||
|
|
Loading…
Reference in New Issue