diff options
-rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
-rw-r--r-- | gcc/fortran/trans-decl.c | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index b7df50611cf..a1b18c0e82a 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,4 +1,8 @@ 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. diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 4ea4e7adfdb..c43bb80a6f1 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; |