Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/fmt_zero_width.f90 @ 158:494b0b89df80 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 1830386684a0
children
line wrap: on
line source

! { dg-do run }
! PR90374 "5.5 d0.d, e0.d, es0.d, en0.d, g0.d and ew.d edit descriptors
program pr90374
  implicit none
  real(4) :: rn
  character(32) :: afmt, aresult
  real(8) :: one = 1.0D0, zero = 0.0D0, pinf, minf

  rn = 0.00314_4
  afmt = "(D0.3)"
  write (aresult,fmt=afmt) rn
  if (aresult /= "0.314D-2") stop 12
  afmt = "(E0.10)"
  write (aresult,fmt=afmt) rn
  if (aresult /= "0.3139999928E-2") stop 15
  afmt = "(ES0.10)"
  write (aresult,fmt=afmt) rn
  if (aresult /= "3.1399999280E-3") stop 18
  afmt = "(EN0.10)"
  write (aresult,fmt=afmt) rn
  if (aresult /= "3.1399999280E-3") stop 21
  afmt = "(G0.10)"
  write (aresult,fmt=afmt) rn
  if (aresult /= "0.3139999928E-2") stop 24
  afmt = "(E0.10e0)"
  write (aresult,fmt=afmt) rn
  if (aresult /= "0.3139999928E-2") stop 27
  write (aresult,fmt="(D0.3)") rn
  if (aresult /= "0.314D-2") stop 29
  write (aresult,fmt="(E0.10)") rn
  if (aresult /= "0.3139999928E-2") stop 31
  write (aresult,fmt="(ES0.10)") rn
  if (aresult /= "3.1399999280E-3") stop 33
  write (aresult,fmt="(EN0.10)") rn
  if (aresult /= "3.1399999280E-3") stop 35
  write (aresult,fmt="(G0.10)") rn
  if (aresult /= "0.3139999928E-2") stop 37
  write (aresult,fmt="(E0.10e0)") rn
  if (aresult /= "0.3139999928E-2") stop 39
  write (aresult,fmt="(E0.10e3)") rn
  if (aresult /= ".3139999928E-002") stop 41
end