33 lines
622 B
Fortran
33 lines
622 B
Fortran
! { dg-do compile }
|
|
|
|
! Type-bound procedures
|
|
! Tests that SEQUENCE and BIND(C) types do not allow a type-bound procedure
|
|
! section.
|
|
|
|
MODULE testmod
|
|
USE ISO_C_BINDING
|
|
IMPLICIT NONE
|
|
|
|
TYPE sequencet
|
|
SEQUENCE
|
|
INTEGER :: a, b
|
|
CONTAINS ! { dg-error "SEQUENCE" }
|
|
PROCEDURE, NOPASS :: proc_noarg
|
|
END TYPE sequencet
|
|
|
|
TYPE, BIND(C) :: bindct
|
|
INTEGER(c_int) :: a
|
|
REAL(c_float) :: b
|
|
CONTAINS ! { dg-error "BIND" }
|
|
PROCEDURE, NOPASS :: proc_noarg
|
|
END TYPE bindct
|
|
|
|
CONTAINS
|
|
|
|
SUBROUTINE proc_noarg ()
|
|
END SUBROUTINE proc_noarg
|
|
|
|
END MODULE testmod
|
|
|
|
! { dg-final { cleanup-modules "testmod" } }
|