mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
36 lines
659 B
Fortran
36 lines
659 B
Fortran
! { 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
|