gcc/gcc/testsuite/gfortran.dg/e_d_fmt.f90 - Issue 3050029: [gcc] GCC 4.5.0=>4.5.1

Side by Side Diff

Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.

Keyboard Shortcuts

	File
u :	up to issue
j / k :	jump to file after / before current file
J / K :	jump to next file with a comment after / before current file
	Side-by-side diff
i :	toggle intra-line diffs
e :	expand all comments
c :	collapse all comments
s :	toggle showing all comments
n / p :	next / previous diff chunk or comment
N / P :	next / previous comment
<Up> / <Down> :	next / previous line

	Issue
u :	up to list of issues
j / k :	jump to patch after / before current patch
o / <Enter> :	open current patch in side-by-side view
i :	open current patch in unified diff view

	Issue List
j / k :	jump to issue after / before current issue
o / <Enter> :	open current issue

Side by Side Diff: gcc/gcc/testsuite/gfortran.dg/e_d_fmt.f90

Issue 3050029: [gcc] GCC 4.5.0=>4.5.1 (Closed) Base URL: ssh://git@gitrw.chromium.org:9222/nacl-toolchain.git

Patch Set: Created 10 years, 4 months ago

Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.

Jump to:

OLD	NEW
1 ! { dg-do run }	1 ! { dg-do run }

	2 ! { dg-options "-std=legacy" }

	3 !

2 ! Verify that the D format uses 'D' as the exponent character.	4 ! Verify that the D format uses 'D' as the exponent character.

3 ! " " " E " " 'E' " " " "	5 ! " " " E " " 'E' " " " "

4 CHARACTER*10 c1, c2	6 CHARACTER*10 c1, c2

5 REAL(kind=8) r	7 REAL(kind=8) r

6 r = 1.0	8 r = 1.0

7 write(c1,"(e9.2)") r	9 write(c1,"(e9.2)") r

8 write(c2,"(d9.2)") r	10 write(c2,"(d9.2)") r

9	11

10 if (trim(adjustl(c1)) .ne. "0.10E+01") call abort()	12 if (trim(adjustl(c1)) .ne. "0.10E+01") call abort()

11 if (trim(adjustl(c2)) .ne. "0.10D+01") call abort()	13 if (trim(adjustl(c2)) .ne. "0.10D+01") call abort()

12	14

13 END	15 END

OLD	NEW