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