From 9be1227bfa90c86cf573b448a3a410e0c606852c Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Sat, 10 Dec 2011 22:15:37 +0100 Subject: 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(-) (limited to 'gcc') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index b7df506..a1b18c0 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,4 +1,8 @@ 2011-12-10 Tobias Burnus + + * trans-decl.c (add_argument_checking): Fix syntax. + +2011-12-10 Tobias Burnus Kai Tietz * 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 4ea4e7a..c43bb80 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; -- cgit v1.1