Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/e_d_fmt.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children 84e7813d76e9
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do run }
2 ! { dg-options "-std=legacy" }
3 !
4 ! Verify that the D format uses 'D' as the exponent character.
5 ! " " " E " " 'E' " " " "
6 CHARACTER*10 c1, c2
7 REAL(kind=8) r
8 r = 1.0
9 write(c1,"(e9.2)") r
10 write(c2,"(d9.2)") r
11
12 if (trim(adjustl(c1)) .ne. "0.10E+01") call abort()
13 if (trim(adjustl(c2)) .ne. "0.10D+01") call abort()
14
15 END