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

Subversion Repositories openrisc

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

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


! { dg-do run }
! PR32554 Bug in P formatting
! Test case from the bug reporter
program gfcbug66
  real(8) :: x = 1.0e-100_8
  character(50) :: outstr
  write (outstr,'(1X,2E12.3)')    x, 2 * x
  if (outstr.ne."    0.100E-99   0.200E-99") call abort
  ! Before patch 2 * x was put out wrong
  write (outstr,'(1X,1P,2E12.3)') x, 2 * x
  if (outstr.ne."    1.000-100   2.000-100") call abort
end program gfcbug66
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR32554 Bug in P formatting`
3			`! Test case from the bug reporter`
4			`program gfcbug66`
5			`real(8) :: x = 1.0e-100_8`
6			`character(50) :: outstr`
7			`write (outstr,'(1X,2E12.3)') x, 2 * x`
8			`if (outstr.ne." 0.100E-99 0.200E-99") call abort`
9			`! Before patch 2 * x was put out wrong`
10			`write (outstr,'(1X,1P,2E12.3)') x, 2 * x`
11			`if (outstr.ne." 1.000-100 2.000-100") call abort`
12			`end program gfcbug66`
13

Browse

Tools

Subversion Repositories openrisc

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