mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-31 15:31:11 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/41683 (F2003 Repeat specification after P descriptor rejected)

Browse Source 
2009-10-12  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/41683
	* gfortran.dg/fmt_error_9.f: Add check for repeat count after P.

From-SVN: r152696
This commit is contained in:
Jerry DeLisle 2009-10-13 02:03:54 +00:00
parent 0a81006d27
commit 4e70743f83
2 changed files with 9 additions and 0 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 @@
2009-10-12 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/41683
* gfortran.dg/fmt_error_9.f: Add check for repeat count after P.
2009-10-12 Jason Merrill <jason@redhat.com>
PR c++/37875

4
gcc/testsuite/gfortran.dg/fmt_error_9.f
View File

@ -22,4 +22,8 @@
write (line,'(1pd24.15e11.3)') 1.0d0, 1.234
if (line.ne." 1.000000000000000D+00 1.234E+00") call abort
str = '(1p2d24.15)'
msg = " 1.000000000000000D+00 1.233999967575073D+00That's it!"
write (line,'(1p2d24.15a)') 1.0d0, 1.234, "That's it!"
if (line.ne.msg) print *, msg
end