blob: edc493bfca514e41f0737b56bcad4b00ab58cc8f [file] [log] [blame]
! { dg-do compile }
! Parsing of finalizer procedure definitions.
! Check that CONTAINS disallows further components and no double CONTAINS
! is allowed.
MODULE final_type
IMPLICIT NONE
TYPE :: mytype
INTEGER, ALLOCATABLE :: fooarr(:)
REAL :: foobar
CONTAINS
CONTAINS ! { dg-error "Already inside a CONTAINS block" }
INTEGER :: x ! { dg-error "must precede CONTAINS" }
END TYPE mytype
END MODULE final_type
PROGRAM finalizer
IMPLICIT NONE
! Do nothing here
END PROGRAM finalizer
! { dg-final { cleanup-modules "final_type" } }