! { 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 | |
! { dg-final { cleanup-modules "testmod" } } |