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