trans-decl.c (add_argument_checking): Fix syntax.

2011-12-10  Tobias Burnus  <burnus@net-b.de>

        * trans-decl.c (add_argument_checking): Fix syntax.

From-SVN: r182194

gcc/fortran/ChangeLog

 2011-12-10  Tobias Burnus  <burnus@net-b.de>
+
+	* trans-decl.c (add_argument_checking): Fix syntax.
+
+2011-12-10  Tobias Burnus  <burnus@net-b.de>
 	    Kai Tietz  <ktietz@redhat.com>
 
 	* trans-decl.c (add_argument_checking): Check ts.deferred earlier.

gcc/fortran/trans-decl.c

@@ -4673,7 +4673,7 @@ add_argument_checking (stmtblock_t *block, gfc_symbol *sym)
 
   for (formal = sym->formal; formal; formal = formal->next)
     if (formal->sym && formal->sym->ts.type == BT_CHARACTER
-	&& !fsym->ts.deferred)
+	&& !formal->sym->ts.deferred)
       {
 	enum tree_code comparison;
 	tree cond;