X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=gcc%2Ftestsuite%2Fgfortran.dg%2Ffunc_result_2.f90;h=6b91653ed9da878c317fa6158573076f72e50944;hb=d665f416f7def4fea1b91ca7bee535d0f3d9464e;hp=2b457d9d44f6a9b93e4f64859263e2dbd19957f2;hpb=65cf6ae72c1123fdf049b26ad11462f32894ee3b;p=pf3gnuchains%2Fgcc-fork.git

diff --git a/gcc/testsuite/gfortran.dg/func_result_2.f90 b/gcc/testsuite/gfortran.dg/func_result_2.f90
index 2b457d9d44f..6b91653ed9d 100644
--- a/gcc/testsuite/gfortran.dg/func_result_2.f90
+++ b/gcc/testsuite/gfortran.dg/func_result_2.f90
@@ -3,7 +3,7 @@
 program testch
   if (ch().ne."hello     ") call abort()
 contains
-  function ch result(str)
+  function ch () result(str)
     character(len = 10)  :: str
     str ="hello"
   end function ch