blob: 1d4dc2d058227391fadaf9e9c4d0a65f61c44ecb (
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
|
! { dg-do compile }
! Code contributed by Ian Harvey <ian_harvey at bigpond dot com>
MODULE m1
IMPLICIT NONE
PUBLIC :: False
PUBLIC :: True
CONTAINS
FUNCTION False() RESULT(b)
LOGICAL :: b
b = .FALSE.
END FUNCTION False
FUNCTION True() RESULT(b)
LOGICAL :: b
b = .TRUE.
END FUNCTION True
END MODULE m1
MODULE m2
USE m1
IMPLICIT NONE
TYPE, ABSTRACT :: t_parent
CONTAINS
PROCEDURE(False), DEFERRED, NOPASS :: Binding
END TYPE t_parent
CONTAINS
SUBROUTINE s
TYPE, EXTENDS(t_parent) :: t_extension
CONTAINS
PROCEDURE, NOPASS :: Binding => True
END TYPE t_extension
END SUBROUTINE s
END MODULE m2
|
