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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [fmt_f0_1.f90] - Blame information for rev 516

Details | Compare with Previous | View Log


! { dg-do run )
! PR39304 write of  0.0 with F0.3 gives  **
! Test case developed from case provided by reporter.
 REAL :: x
 CHARACTER(80) :: str
 x = 0.0
 write (str,'(f0.0)') x
 if (str.ne."0.") call abort
 write (str,'(f0.1)') x
 if (str.ne."0.0") call abort
 write (str,'(f0.2)') x
 if (str.ne."0.00") call abort
 write (str,'(f0.3)') x
 if (str.ne."0.000") call abort
 write (str,'(f0.4)') x
 if (str.ne."0.0000") call abort
 END

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run )`
2			`! PR39304 write of 0.0 with F0.3 gives **`
3			`! Test case developed from case provided by reporter.`
4			`REAL :: x`
5			`CHARACTER(80) :: str`
6			`x = 0.0`
7			`write (str,'(f0.0)') x`
8			`if (str.ne."0.") call abort`
9			`write (str,'(f0.1)') x`
10			`if (str.ne."0.0") call abort`
11			`write (str,'(f0.2)') x`
12			`if (str.ne."0.00") call abort`
13			`write (str,'(f0.3)') x`
14			`if (str.ne."0.000") call abort`
15			`write (str,'(f0.4)') x`
16			`if (str.ne."0.0000") call abort`
17			`END`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [fmt_f0_1.f90] - Blame information for rev 516