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