1! { dg-do compile } 2 3! Parsing of finalizer procedure definitions. 4! Check that CONTAINS is allowed in TYPE definition; but empty only for F2008 5 6MODULE final_type 7 IMPLICIT NONE 8 9 TYPE :: mytype 10 INTEGER, ALLOCATABLE :: fooarr(:) 11 REAL :: foobar 12 CONTAINS 13 END TYPE mytype 14 15CONTAINS 16 17 SUBROUTINE bar 18 TYPE :: t 19 CONTAINS ! This is ok 20 END TYPE t 21 ! Nothing 22 END SUBROUTINE bar 23 24END MODULE final_type 25 26PROGRAM finalizer 27 IMPLICIT NONE 28 ! Do nothing here 29END PROGRAM finalizer 30