! This is a sample program | |
program Hello | |
integer :: i = 3 !!! a variable !!! | |
call buS(nF(i) + 1) | |
print *, "The integer is ", i | |
contains ! a comment | |
subroutine buS(x) ! start | |
integer, intent(in) :: x | |
print *, "In the subroutine, the integer is ", x | |
end subroutine buS ! end | |
end program | |
integer function nF(n) result(y) | |
print *, "You sent", n, "to the function" | |
y = n | |
end function |