diff options
author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-12-10 21:15:37 +0000 |
---|---|---|
committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-12-10 21:15:37 +0000 |
commit | 6c3000f478fb2bc6f10486baaf26a89c31ddee8c (patch) | |
tree | 95169dec7f74bcbe8a52afbdd0a0f00a517c3ef7 | |
parent | c8ad47e16dff2d80a4096e2716a6384d8cf1a041 (diff) | |
download | gcc-6c3000f478fb2bc6f10486baaf26a89c31ddee8c.tar.gz |
2011-12-10 Tobias Burnus <burnus@net-b.de>
* trans-decl.c (add_argument_checking): Fix syntax.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@182194 138bc75d-0d04-0410-961f-82ee72b054a4
-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; |