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