| ! { dg-do compile } |
| ! |
| ! PR 49196: [OOP] gfortran compiles invalid generic TBP: dummy arguments are type compatible |
| ! |
| ! Contributed by Hans-Werner Boschmann <boschmann@tp1.physik.uni-siegen.de> |
| |
| module generic |
| |
| type :: a_type |
| contains |
| procedure :: a_subroutine |
| end type a_type |
| |
| type,extends(a_type) :: b_type |
| contains |
| procedure :: b_subroutine |
| generic :: g_sub => a_subroutine,b_subroutine ! { dg-error "are ambiguous" } |
| end type b_type |
| |
| contains |
| |
| subroutine a_subroutine(this) |
| class(a_type)::this |
| end subroutine a_subroutine |
| |
| subroutine b_subroutine(this) |
| class(b_type)::this |
| end subroutine b_subroutine |
| |
| end module generic |