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
36
37
38
|
! { dg-do compile }
! { dg-options "-std=legacy" }
! We want to check for statement functions, thus legacy mode.
! Check for errors with declarations not allowed within BLOCK.
SUBROUTINE proc (a)
IMPLICIT NONE
INTEGER :: a
BLOCK
INTENT(IN) :: a ! { dg-error "not allowed inside of BLOCK" }
VALUE :: a ! { dg-error "not allowed inside of BLOCK" }
OPTIONAL :: a ! { dg-error "not allowed inside of BLOCK" }
END BLOCK
END SUBROUTINE proc
PROGRAM main
IMPLICIT NONE
BLOCK
IMPLICIT INTEGER(a-z) ! { dg-error "not allowed inside of BLOCK" }
INTEGER :: a, b, c, d
INTEGER :: stfunc
stfunc(a, b) = a + b ! { dg-error "not allowed inside of BLOCK" }
EQUIVALENCE (a, b) ! { dg-error "not allowed inside of BLOCK" }
NAMELIST /NLIST/ a, b ! { dg-error "not allowed inside of BLOCK" }
COMMON /CBLOCK/ c, d ! { dg-error "not allowed inside of BLOCK" }
! This contains is in the specification part.
CONTAINS ! { dg-error "Unexpected CONTAINS statement" }
END BLOCK
BLOCK
PRINT *, "Hello, world"
! This one in the executable statement part.
CONTAINS ! { dg-error "Unexpected CONTAINS statement" }
END BLOCK
END PROGRAM main
|
