3 ! Type-bound procedures
4 ! Test for name collision between type-bound procedures and components.
12 PROCEDURE, NOPASS :: comp => proc ! { dg-error "same name as a component" }
18 PROCEDURE, NOPASS :: comp2 => proc
21 TYPE, EXTENDS(supert) :: subt1
22 INTEGER :: comp2 ! { dg-error "same name" }
25 TYPE, EXTENDS(supert) :: subt2
27 PROCEDURE, NOPASS :: comp1 => proc ! { dg-error "same name as an inherited component" }
37 ! { dg-final { cleanup-modules "testmod" } }