gcc/testsuite/gfortran.dg/finalize_2.f03

   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
   7 MODULE 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
  16 END MODULE final_type
  17
  18 PROGRAM finalizer
  19   IMPLICIT NONE
  20   ! Do nothing here
  21 END PROGRAM finalizer
  22
  23 ! { dg-final { cleanup-modules "final_type" } }