1module test_block
2
3contains
4
5  SUBROUTINE suba()
6    INTEGER :: a
7
8    a = 5
9    BLOCK
10      INTEGER :: b
11      b = a + 2
12    END BLOCK
13  END SUBROUTINE
14
15  subroutine subb
16
17  end subroutine
18
19end module test_block
20