! { dg-do compile } ! { dg-options "-std=f2003" } ! Parsing of finalizer procedure definitions. ! Check empty CONTAINS errors out for F2003. MODULE final_type IMPLICIT NONE TYPE :: mytype INTEGER, ALLOCATABLE :: fooarr(:) REAL :: foobar CONTAINS END TYPE mytype ! { dg-error "Fortran 2008" } END MODULE final_type PROGRAM finalizer IMPLICIT NONE ! Do nothing here END PROGRAM finalizer ! { dg-final { cleanup-modules "final_type" } }