program hello | |
implicit none | |
intrinsic flush | |
integer :: i = 2, j = 2, mySillyVariable = 5 | |
print *, i, j, MYsIlLyVaRiAbLe | |
CALL wORTHLESSfUNCTION(i+1,j+1,MySillyVariable) | |
print *, i, j, mYsILLYvARIABLE | |
call flush; stop | |
contains | |
subroutine WorthlessFunction(i,j,mySillyVariable) | |
implicit none | |
integer :: i | |
integer :: j | |
integer :: mySillyVariable | |
intent(IN) :: i, j | |
intent(OUT) :: mySillyVariable | |
mySillyVariable = i + j | |
end subroutine WorthlessFunction | |
end program |