trunk/gcc/testsuite/gfortran.dg/typebound_proc_3.f03

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f2003" }
   3
   4 ! Type-bound procedures
   5 ! Test that F2003 does not allow empty CONTAINS sections.
   6
   7 MODULE testmod
   8   IMPLICIT NONE
   9
  10   TYPE t
  11     INTEGER :: x
  12   CONTAINS
  13   END TYPE t ! { dg-error "Fortran 2008" }
  14
  15 END MODULE testmod
  16
  17 ! { dg-final { cleanup-modules "testmod" } }