program Hello | |
i = 3 | |
call Sub(i + 1) | |
print *, "The integer is ", i | |
contains | |
subroutine Sub(i) | |
integer :: x | |
x = i | |
print *, x | |
end subroutine Sub | |
subroutine SomeSub(y,z) | |
real :: y | |
real :: z | |
x = y + z | |
y = 22 | |
z = y + z | |
print *, x | |
end subroutine SomeSub | |
end program |