2 ! { dg-output "Super(\n|\r\n|\r).*Sub" }
4 ! Type-bound procedures
5 ! Check for calling right overloaded procedure.
12 PROCEDURE, NOPASS :: proc => proc_super
15 TYPE, EXTENDS(supert) :: subt
17 PROCEDURE, NOPASS :: proc => proc_sub
22 SUBROUTINE proc_super ()
25 END SUBROUTINE proc_super
27 SUBROUTINE proc_sub ()
30 END SUBROUTINE proc_sub