Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "-std=f95" }

! Parsing of finalizer procedure definitions.

! Check that CONTAINS/FINAL in derived types is rejected for F95.

MODULE final_type

  IMPLICIT NONE

  TYPE :: mytype

    INTEGER :: fooarr(42)

    REAL :: foobar

  CONTAINS ! { dg-error "Fortran 2003" }

    FINAL :: finalize_single ! { dg-error "Fortran 2003" }

  END TYPE mytype

CONTAINS

  SUBROUTINE finalize_single (el)

    IMPLICIT NONE

    TYPE(mytype) :: el

    ! Do nothing in this test

  END SUBROUTINE finalize_single

END MODULE final_type

PROGRAM finalizer

  IMPLICIT NONE

  ! Do nothing

END PROGRAM finalizer

! TODO: Remove this once finalization is implemented.

! { dg-excess-errors "not yet implemented" }

! { dg-final { cleanup-modules "final_type" } }