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 | |
| 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')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/trans-expr.c | 2 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/warn_unused_function.f90 | 21 |
4 files changed, 33 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 37afede..04304b1 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2012-10-19 Janus Weil <janus@gcc.gnu.org> + + PR fortran/54224 + * trans-expr.c (conv_function_val): Set TREE_USED. + 2012-10-18 Tobias Burnus <burnus@net-b.de> PR fortran/54884 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) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index be805f2..adb5542 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2012-10-19 Janus Weil <janus@gcc.gnu.org> + + PR fortran/54224 + * gfortran.dg/warn_unused_function.f90: New. + 2012-10-19 Greta Yorsh <Greta.Yorsh@arm.com> * lib/target-supports.exp (check_effective_target_arm_prefer_ldrd_strd): diff --git a/gcc/testsuite/gfortran.dg/warn_unused_function.f90 b/gcc/testsuite/gfortran.dg/warn_unused_function.f90 new file mode 100644 index 0000000..4d0ed9a --- /dev/null +++ b/gcc/testsuite/gfortran.dg/warn_unused_function.f90 @@ -0,0 +1,21 @@ +! { dg-do compile } +! { dg-options "-Wunused-function" } +! +! PR 54224: [4.8 Regression] Bogus -Wunused-function warning with static function +! +! Contributed by Tobias Burnus <burnus@gcc.gnu.org> + +module mod_say_hello + private :: hello_integer +contains + subroutine say_hello() + call hello_integer(123) + end subroutine + + subroutine hello_integer( a ) + integer, intent(in) :: a + print *, "Hello ", a, "!" + end subroutine +end module + +! { dg-final { cleanup-modules "mod_say_hello" } } |