3 ! Type-bound procedures
4 ! Tests that SEQUENCE and BIND(C) types do not allow a type-bound procedure
14 CONTAINS ! { dg-error "SEQUENCE" }
15 PROCEDURE, NOPASS :: proc_noarg
18 TYPE, BIND(C) :: bindct
21 CONTAINS ! { dg-error "BIND" }
22 PROCEDURE, NOPASS :: proc_noarg
27 SUBROUTINE proc_noarg ()
28 END SUBROUTINE proc_noarg