3 ! PR 47978: [OOP] Invalid INTENT in overriding TBP not detected
5 ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
10 procedure, pass(f) :: bar => base_bar
13 subroutine base_bar(f,j)
14 class(foo), intent(inout) :: f
15 integer, intent(in) :: j
16 end subroutine base_bar
21 type, extends(foo) :: extfoo
23 procedure, pass(f) :: bar => ext_bar ! { dg-error "INTENT mismatch in argument" }
26 subroutine ext_bar(f,j)
27 class(extfoo), intent(inout) :: f
28 integer, intent(inout) :: j
29 end subroutine ext_bar