Subversion Repositories openrisc

! { dg-do compile }

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

! Parsing of finalizer procedure definitions.

! Check empty CONTAINS errors out for F2003.

MODULE final_type

  IMPLICIT NONE

  TYPE :: mytype

    INTEGER, ALLOCATABLE :: fooarr(:)

    REAL :: foobar

  CONTAINS

  END TYPE mytype ! { dg-error "Fortran 2008" }

END MODULE final_type

PROGRAM finalizer

  IMPLICIT NONE

  ! Do nothing here

END PROGRAM finalizer

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