blob: 63d64ffc7ac155e7ecfa7ca7fdcdda22d0abb63a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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
|
