URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [pr17706.f90] - Blame information for rev 437

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do run }
! { dg-options "-fno-sign-zero" }
! PR17706
! this is a libgfortran test
! output value -0.00 is not standard compliant
! derived from NIST F77 test FM406, with extra bits added.
program pr17706
  implicit none
  character(len=10) :: s
  character(len=10), parameter :: x = "xxxxxxxxxx"
  real, parameter :: small = -0.0001
 
  s = x
  write (s, '(F4.1)') small
  ! The plus is optional.  We choose not to display it.
  if (s .ne. " 0.0") call abort
 
  s = x
  write (s, '(SS,F4.1)') small
  if (s .ne. " 0.0") call abort
 
  s = x
  write (s, '(SP,F4.1)') small
  if (s .ne. "+0.0") call abort
end program

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-fno-sign-zero" }`
3			`! PR17706`
4			`! this is a libgfortran test`
5			`! output value -0.00 is not standard compliant`
6			`! derived from NIST F77 test FM406, with extra bits added.`
7			`program pr17706`
8			`implicit none`
9			`character(len=10) :: s`
10			`character(len=10), parameter :: x = "xxxxxxxxxx"`
11			`real, parameter :: small = -0.0001`
12
13			`s = x`
14			`write (s, '(F4.1)') small`
15			`! The plus is optional. We choose not to display it.`
16			`if (s .ne. " 0.0") call abort`
17
18			`s = x`
19			`write (s, '(SS,F4.1)') small`
20			`if (s .ne. " 0.0") call abort`
21
22			`s = x`
23			`write (s, '(SP,F4.1)') small`
24			`if (s .ne. "+0.0") call abort`
25			`end program`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [pr17706.f90] - Blame information for rev 437