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

Subversion Repositories openrisc

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

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	694	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

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