diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2012-10-19 19:14:46 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2012-10-19 19:14:46 +0200 |
| commit | 704fc8502fc5ac926349d11d4b6622493e4492fb (patch) | |
| tree | c07300db3169cc18303ae3ed5a83783bfaa9eeb6 /gcc/fortran/trans-expr.c | |
| parent | af89bd042ddf9fff34ad79c16123a4cbf814b003 (diff) | |
| download | gcc-704fc8502fc5ac926349d11d4b6622493e4492fb.zip gcc-704fc8502fc5ac926349d11d4b6622493e4492fb.tar.gz gcc-704fc8502fc5ac926349d11d4b6622493e4492fb.tar.bz2 | |
re PR fortran/54224 (Warn for unused internal procedures)
2012-10-19 Janus Weil <janus@gcc.gnu.org>
PR fortran/54224
* trans-expr.c (conv_function_val): Set TREE_USED.
2012-10-19 Janus Weil <janus@gcc.gnu.org>
PR fortran/54224
* gfortran.dg/warn_unused_function.f90: New.
From-SVN: r192620
Diffstat (limited to 'gcc/fortran/trans-expr.c')
| -rw-r--r-- | gcc/fortran/trans-expr.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index cf9f346..b4f9f26 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -2674,6 +2674,8 @@ conv_function_val (gfc_se * se, gfc_symbol * sym, gfc_expr * expr) if (!sym->backend_decl) sym->backend_decl = gfc_get_extern_function_decl (sym); + TREE_USED (sym->backend_decl) = 1; + tmp = sym->backend_decl; if (sym->attr.cray_pointee) |