From: Tobias Burnus <burnus@net-b.de>
Date: Sat, 10 Dec 2011 21:15:37 +0000 (+0100)
Subject: trans-decl.c (add_argument_checking): Fix syntax.
X-Git-Tag: releases/gcc-4.7.0~1639
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=9be1227bfa90c86cf573b448a3a410e0c606852c;p=thirdparty%2Fgcc.git

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
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index b7df50611cfa..a1b18c0e82aa 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+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>
 
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index 4ea4e7adfdb4..c43bb80a6f1b 100644
--- a/gcc/fortran/trans-decl.c
+++ b/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;