git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/38398 (g0.w edit descriptor: Update for F2008 Tokyo meeting changes) 

2008-12-21  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/38398
	* gfortran.dg/fmt_g0_1.f08: Revise.

From-SVN: r142876
This commit is contained in:
Jerry DeLisle 2008-12-21 22:06:34 +00:00
parent c05854ec7d
commit 19ce9ba0a2
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2008-12-21 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/38398
* gfortran.dg/fmt_g0_1.f08: Revise.
2008-12-21 Richard Sandiford <rdsandiford@googlemail.com>
* gcc.target/mips/mips.exp: Rewrite.

6
gcc/testsuite/gfortran.dg/fmt_g0_1.f08
View File

@ -8,13 +8,13 @@
write(buffer, string) ':',0,':'
if (buffer.ne.":0:") call abort
write(buffer, string) ':',1.0/3.0,':'
if (buffer.ne.": 0.33333334 :") call abort
if (buffer.ne.":.33333334:") call abort
write(buffer, '(1x,a,g0,a)') ':',1.0/3.0,':'
if (buffer.ne." : 0.33333334 :") call abort
if (buffer.ne." :.33333334:") call abort
write(buffer, string) ':',"hello",':'
if (buffer.ne.":hello:") call abort
write(buffer, "(g0,g0,g0,g0)") ':',.true.,.false.,':'
if (buffer.ne.":TF:") call abort
write(buffer, "(g0,g0,',',g0,g0)") '(',( 1.2345, 2.4567 ),')'
if (buffer.ne."( 1.2345001 , 2.4567001 )") call abort
if (buffer.ne."(1.2345001,2.4567001)") call abort
end