| 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 |