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