1! { dg-do compile }
2
3! Parsing of finalizer procedure definitions.
4! Check that CONTAINS is allowed in TYPE definition; but empty only for F2008
5
6MODULE final_type
7  IMPLICIT NONE
8
9  TYPE :: mytype
10    INTEGER, ALLOCATABLE :: fooarr(:)
11    REAL :: foobar
12  CONTAINS
13  END TYPE mytype
14
15CONTAINS
16
17  SUBROUTINE bar
18    TYPE :: t
19    CONTAINS ! This is ok
20    END TYPE t
21    ! Nothing
22  END SUBROUTINE bar
23
24END MODULE final_type
25
26PROGRAM finalizer
27  IMPLICIT NONE
28  ! Do nothing here
29END PROGRAM finalizer
30