example.f90program example
integer :: i
!! --
i = 1
block
integer :: j = 1
do j=1, 10
write(*,*) j
end do
end block
call sub(i)
!! --
contains
subroutine sub(i)
integer, intent(in) :: i
write(*,*) i
end subroutine sub
end program example
.f
, .F
, .f90
, .F90
などです.ご検討いただければ幸いです.