1! { dg-do compile }
2! { dg-options "-std=f2003" }
3!
4! Copied from finalize_6.f90 - was before rejected as the finalization
5! wrapper uses TS29913 (-std=f2008ts) features.
6!
7
8MODULE final_type
9  IMPLICIT NONE
10
11  TYPE :: mytype
12    INTEGER :: fooarr(42)
13    REAL :: foobar
14  CONTAINS
15    FINAL :: finalize_single
16  END TYPE mytype
17
18CONTAINS
19
20  SUBROUTINE finalize_single (el)
21    IMPLICIT NONE
22    TYPE(mytype) :: el
23    ! Do nothing in this test
24  END SUBROUTINE finalize_single
25
26END MODULE final_type
27
28PROGRAM finalizer
29  IMPLICIT NONE
30  ! Do nothing
31END PROGRAM finalizer
32