X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=blobdiff_plain;f=gcc%2Ffortran%2Ftrans-io.c;h=b0d0556af6ddcfd76314b2c1a2591a2d4b6abda2;hp=fd8a806d7d08594650b370761cf733bd2d59b7f9;hb=08803898f86ac4e22632737f1bd52668dbb4e663;hpb=f00fc6e685fc15436f6716011bc20bd891f899b7

diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c
index fd8a806d7d0..b0d0556af6d 100644
--- a/gcc/fortran/trans-io.c
+++ b/gcc/fortran/trans-io.c
@@ -620,7 +620,7 @@ gfc_convert_array_to_string (gfc_se * se, gfc_expr * e)
       return;
     }
 
-  gfc_conv_array_parameter (se, e, gfc_walk_expr (e), 1, NULL, NULL, &size);
+  gfc_conv_array_parameter (se, e, gfc_walk_expr (e), true, NULL, NULL, &size);
   se->string_length = fold_convert (gfc_charlen_type_node, size);
 }