3 ! PR 54190: TYPE(*)/assumed-rank: Type/rank check too relaxed for dummy procedure
4 ! PR 57217: [4.7/4.8/4.9 Regression][OOP] Accepts invalid TBP overriding - lacking arguments check
6 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
13 procedure
, pass(map) :: clone
=> base_clone
16 subroutine base_clone(map,mapout
,info
)
17 class(base_type
), intent(inout
) :: map
18 class(base_type
), intent(inout
) :: mapout
26 type, extends(base_type
) :: r_type
29 procedure
, pass(map) :: clone
=> r_clone
! { dg-error "Type mismatch in argument" }
32 subroutine r_clone(map,mapout
,info
)
33 class(r_type
), intent(inout
) :: map
34 type(*), intent(inout
) :: mapout