gcc/testsuite/gfortran.dg/typebound_proc_7.f03

   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
   7 MODULE 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
  25 CONTAINS
  26
  27   SUBROUTINE proc_noarg ()
  28   END SUBROUTINE proc_noarg
  29
  30 END MODULE testmod
  31
  32 ! { dg-final { cleanup-modules "testmod" } }