OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [default_format_2.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-require-effective-target fortran_large_real }
2
! { dg-do run { xfail powerpc*-apple-darwin* powerpc*-*-linux* } }
3
! Test XFAILed on these platforms because the system's printf() lacks
4
! proper support for denormalized long doubles. See PR24685
5
!
6
! This tests that the default formats for formatted I/O of reals are
7
! wide enough and have enough precision, by checking that values can
8
! be written and read back.
9
!
10
include "default_format_2.inc"
11
 
12
program main
13
  use test_default_format
14
 
15
  if (test (1.0_kl, 0) /= 0) call abort
16
  if (test (0.0_kl, 0) /= 0) call abort
17
  if (test (tiny(0.0_kl), 1) /= 0) call abort
18
  if (test (-tiny(0.0_kl), -1) /= 0) call abort
19
  if (test (huge(0.0_kl), -1) /= 0) call abort
20
  if (test (-huge(0.0_kl), 1) /= 0) call abort
21
end program main
22
!
23
! { dg-final { cleanup-modules "test_default_format" } }

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.