1! { dg-do compile } 2! { dg-options "-std=f2003" } 3 4! Parsing of finalizer procedure definitions. 5! Check empty CONTAINS errors out for F2003. 6 7MODULE final_type 8 IMPLICIT NONE 9 10 TYPE :: mytype 11 INTEGER, ALLOCATABLE :: fooarr(:) 12 REAL :: foobar 13 CONTAINS 14 END TYPE mytype ! { dg-error "Fortran 2008" } 15 16END MODULE final_type 17 18PROGRAM finalizer 19 IMPLICIT NONE 20 ! Do nothing here 21END PROGRAM finalizer 22