3 ! PR 57217: [4.7/4.8/4.9 Regression][OOP] Accepts invalid TBP overriding - lacking arguments check
5 ! Contributed by Salvatore Filippone <filippone.salvatore@gmail.com>
11 procedure
, pass(map) :: clone
=> base_clone
14 subroutine base_clone(map,mapout
)
15 class(base_type
) :: map
16 class(base_type
) :: mapout
23 type, extends(base_type
) :: r_type
25 procedure
, pass(map) :: clone
=> r_clone
! { dg-error "Type mismatch in argument" }
28 subroutine r_clone(map,mapout
)
30 class(r_type
) :: mapout
34 ! { dg-final { cleanup-modules "base_mod r_mod" } }