From 9be1227bfa90c86cf573b448a3a410e0c606852c Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Sat, 10 Dec 2011 22:15:37 +0100 Subject: [PATCH] trans-decl.c (add_argument_checking): Fix syntax. 2011-12-10 Tobias Burnus * trans-decl.c (add_argument_checking): Fix syntax. From-SVN: r182194 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/trans-decl.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index b7df50611cf..a1b18c0e82a 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2011-12-10 Tobias Burnus + + * trans-decl.c (add_argument_checking): Fix syntax. + 2011-12-10 Tobias Burnus Kai Tietz 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; -- 2.30.2