gcc/testsuite/gfortran.dg/finalize_11.f90

   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
   8 MODULE 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
  18 CONTAINS
  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
  26 END MODULE final_type
  27
  28 PROGRAM finalizer
  29   IMPLICIT NONE
  30   ! Do nothing
  31 END PROGRAM finalizer