diff options
| author | Tobias Burnus <burnus@net-b.de> | 2013-04-15 11:40:28 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2013-04-15 11:40:28 +0200 |
| commit | adede54ce9d680ab7a0499b76a7f22d3a78d79b8 (patch) | |
| tree | ef0f4abbc50df483f7b0062050c9d118e1512842 /gcc/fortran/trans-decl.c | |
| parent | 811b72f9c9e0f1ca002e637d836cfc7a84b5927d (diff) | |
| download | gcc-adede54ce9d680ab7a0499b76a7f22d3a78d79b8.zip gcc-adede54ce9d680ab7a0499b76a7f22d3a78d79b8.tar.gz gcc-adede54ce9d680ab7a0499b76a7f22d3a78d79b8.tar.bz2 | |
class.c (gfc_find_intrinsic_vtab): Removed unused var.
2013-04-15 Tobias Burnus <burnus@net-b.de>
* class.c (gfc_find_intrinsic_vtab): Removed unused var.
* dependency.c (check_data_pointer_types): Fix check.
* frontend-passes.c (check_data_pointer_types): Remove
superfluous statement.
* parse.c (decode_omp_directive): Add missing break.
* resolve.c (resolve_typebound_subroutine: Free variable.
* trans-decl.c (create_function_arglist): Correct condition.
From-SVN: r197961
Diffstat (limited to 'gcc/fortran/trans-decl.c')
| -rw-r--r-- | gcc/fortran/trans-decl.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index f2cf2de..4c0b1da 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -2146,7 +2146,7 @@ create_function_arglist (gfc_symbol * sym) hence, the optional status cannot be transfered via a NULL pointer. Thus, we will use a hidden argument in that case. */ else if (f->sym->attr.optional && f->sym->attr.value - && !f->sym->attr.dimension && !f->sym->ts.type != BT_CLASS + && !f->sym->attr.dimension && f->sym->ts.type != BT_CLASS && f->sym->ts.type != BT_DERIVED) { tree tmp; |