procyberian/gcc
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/67982 (Incorrect -Wunused-function warning)

Browse source 
2015-11-03  Dominique d'Humieres <dominiq@lps.ens.fr>

	PR fortran/67982
	* gfortran.dg/warn_unused_function_3.f90: New test.

From-SVN: r229716
This commit is contained in:
Dominique d'Humieres 2015-11-03 19:03:38 +01:00 • committed by Dominique d'Humieres
parent 26eaa5a5eb
commit aa3d33850f
2 changed files with 40 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2015-11-03 Dominique d'Humieres <dominiq@lps.ens.fr>
PR fortran/67982
* gfortran.dg/warn_unused_function_3.f90: New test.
2015-11-03 Eric Botcazou <ebotcazou@adacore.com>
* gnat.dg/discr45.adb: Only compile the test.

35
gcc/testsuite/gfortran.dg/warn_unused_function_3.f90 Normal file
View file

@ -0,0 +1,35 @@
! { dg-do compile }
! { dg-options "-Wunused-function" }
!
! PR 67982: Bogus -Wunused-function warning with contained function
!
! Contributed by Joost VandeVondele <Joost dot VandeVondele at mat dot ethz dot ch>
MODULE base
INTERFACE
SUBROUTINE bar_int()
END SUBROUTINE
END INTERFACE
PUBLIC hook
PRIVATE
PROCEDURE(bar_int), POINTER :: hook=>NULL()
END MODULE base
MODULE foo
USE base, ONLY: hook
PUBLIC init
PRIVATE
CONTAINS
SUBROUTINE init()
hook=>bar
END SUBROUTINE init
SUBROUTINE bar()
WRITE(6,*) "In bar"
END SUBROUTINE
END MODULE
USE foo, ONLY: init
USE base, ONLY: hook
CALL init()
CALL hook()
END