2 ! { dg-options "-std=f95" }
4 ! Parsing of finalizer procedure definitions.
5 ! Check that CONTAINS/FINAL in derived types is rejected for F95.
13 CONTAINS ! { dg-error "Fortran 2003" }
14 FINAL :: finalize_single ! { dg-error "Fortran 2003" }
19 SUBROUTINE finalize_single (el)
22 ! Do nothing in this test
23 END SUBROUTINE finalize_single
32 ! TODO: Remove this once finalization is implemented.
33 ! { dg-excess-errors "not yet implemented" }
35 ! { dg-final { cleanup-modules "final_type" } }