diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c
index 5299b4c2cdd17dd20cb0d639244a228670e28933..e6c4600b001cdaa718a45c312a58eebbc4102ad1 100644
--- a/gcc/fortran/trans-array.c
+++ b/gcc/fortran/trans-array.c
@@ -3762,7 +3762,7 @@ gfc_conv_array_parameter (gfc_se * se, gfc_expr * expr, gfc_ss * ss, int g77)
       if (!sym->attr.pointer && sym->as->type != AS_ASSUMED_SHAPE 
           && !sym->attr.allocatable)
         {
-	  /* Some variables are declared directly, others are declard as
+	  /* Some variables are declared directly, others are declared as
 	     pointers and allocated on the heap.  */
           if (sym->attr.dummy || POINTER_TYPE_P (TREE_TYPE (tmp)))
             se->expr = tmp;