org.eclipse.photran-samples/src-fortran2008/03-block-construct.f08

! Demonstrates the Fortran 2008 BLOCK construct
! Exercises R213, 807, 808, 809
! J. Overbey - 1 Dec 2009
implicit none

integer :: n = 1
print *, n  ! Prints 1

block
end block

name: block
end block

name: block
end block name

block
endblock

name: block
endblock

name: block
endblock name

!block: block
!end block block

block
    integer :: n = 2  ! Shadows the above
    print *, n   ! Prints 2
end block

print *, n  ! Prints 1

end program