X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=gcc%2Ftestsuite%2Fgfortran.dg%2Fcomma_format_extension_4.f;h=3053d3fb14566f49b7b73e3ccc3073499bcf46c4;hb=a049d909ffb04dc8d44431d4499d23cc7c4f271e;hp=138c163bffb84af7647d3b73e91d4ed95762d324;hpb=d189be7fb1e78de8112a32d080db65a99f70090b;p=pf3gnuchains%2Fgcc-fork.git

diff --git a/gcc/testsuite/gfortran.dg/comma_format_extension_4.f b/gcc/testsuite/gfortran.dg/comma_format_extension_4.f
index 138c163bffb..3053d3fb145 100644
--- a/gcc/testsuite/gfortran.dg/comma_format_extension_4.f
+++ b/gcc/testsuite/gfortran.dg/comma_format_extension_4.f
@@ -2,7 +2,7 @@
 ! Note the missing , before i1 in the format.
 ! { dg-do run }
 ! { dg-options "" }
-      character*5 c
+      character*6 c
       write (c,1001) 1
       if (c .ne. '    1 ') call abort