1! { dg-do compile } 2 3! Type-bound procedures 4! Tests that SEQUENCE and BIND(C) types do not allow a type-bound procedure 5! section. 6 7MODULE testmod 8 USE ISO_C_BINDING 9 IMPLICIT NONE 10 11 TYPE sequencet 12 SEQUENCE 13 INTEGER :: a, b 14 CONTAINS ! { dg-error "SEQUENCE" } 15 PROCEDURE, NOPASS :: proc_noarg 16 END TYPE sequencet 17 18 TYPE, BIND(C) :: bindct 19 INTEGER(c_int) :: a 20 REAL(c_float) :: b 21 CONTAINS ! { dg-error "BIND" } 22 PROCEDURE, NOPASS :: proc_noarg 23 END TYPE bindct 24 25CONTAINS 26 27 SUBROUTINE proc_noarg () 28 END SUBROUTINE proc_noarg 29 30END MODULE testmod 31