! { dg-do compile } ! { dg-options "-std=f2003" } ! Type-bound procedures ! Test that F2003 does not allow empty CONTAINS sections. MODULE testmod IMPLICIT NONE TYPE t INTEGER :: x CONTAINS END TYPE t ! { dg-error "Fortran 2008" } END MODULE testmod