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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [fmt_zero_digits.f90] - Blame information for rev 237

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


! { dg-do run }
! Verify that when decimal precision is zero, no error.
! Submitted by Jerry DeLisle  
program test
  character(20) :: astr
  50 FORMAT (d20.0)
  astr = ""
  write(astr,50) -8.0D0
  if (astr.ne."              0.D+01") call abort()
end program test

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do run }`
2			`! Verify that when decimal precision is zero, no error.`
3			`! Submitted by Jerry DeLisle`
4			`program test`
5			`character(20) :: astr`
6			`50 FORMAT (d20.0)`
7			`astr = ""`
8			`write(astr,50) -8.0D0`
9			`if (astr.ne." 0.D+01") call abort()`
10			`end program test`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [fmt_zero_digits.f90] - Blame information for rev 237