blob: b2027a0ba6dd12e978267f4a4b121771af0aee18 (
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
30
31
32
33
34
35
|
! { dg-do compile }
! Parsing of finalizer procedure definitions.
! Check that FINAL-declarations are only allowed on types defined in the
! specification part of a module.
MODULE final_type
IMPLICIT NONE
CONTAINS
SUBROUTINE bar
IMPLICIT NONE
TYPE :: mytype
INTEGER, ALLOCATABLE :: fooarr(:)
REAL :: foobar
CONTAINS
FINAL :: myfinal ! { dg-error "in the specification part of a MODULE" }
END TYPE mytype
CONTAINS
SUBROUTINE myfinal (el)
TYPE(mytype) :: el
END SUBROUTINE myfinal
END SUBROUTINE bar
END MODULE final_type
PROGRAM finalizer
IMPLICIT NONE
! Do nothing here
END PROGRAM finalizer
|