1! { dg-do compile } 2 3! Parsing of finalizer procedure definitions. 4! Check that CONTAINS disallows further components and no double CONTAINS 5! is allowed. 6 7MODULE final_type 8 IMPLICIT NONE 9 10 TYPE :: mytype 11 INTEGER, ALLOCATABLE :: fooarr(:) 12 REAL :: foobar 13 CONTAINS 14 CONTAINS ! { dg-error "Already inside a CONTAINS block" } 15 INTEGER :: x ! { dg-error "must precede CONTAINS" } 16 END TYPE mytype 17 18END MODULE final_type 19 20PROGRAM finalizer 21 IMPLICIT NONE 22 ! Do nothing here 23END PROGRAM finalizer 24