Subversion Repositories openrisc

! { 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" } }