3 ! PR 49196: [OOP] gfortran compiles invalid generic TBP: dummy arguments are type compatible
5 ! Contributed by Hans-Werner Boschmann <boschmann@tp1.physik.uni-siegen.de>
11 procedure :: a_subroutine
14 type,extends(a_type) :: b_type
16 procedure :: b_subroutine
17 generic :: g_sub => a_subroutine,b_subroutine ! { dg-error "are ambiguous" }
22 subroutine a_subroutine(this)
24 end subroutine a_subroutine
26 subroutine b_subroutine(this)
28 end subroutine b_subroutine