FORTRAN!

       PROGRAM OOF
C
C      ALL PARAMETERS IN FORTRAN ARE PASSED BY REFERENCE!
C      DEC (5) PASSES IN A STATIC GLOBAL REFERENCE
C      TO A MEMORY AREA INITIALLY CONTAINING 5.
C      DEC DECREMENTS THE VALUE IN THAT MEMORY AREA
C
10     CALL DEC (5)
20     IF (2+2 .EQ. 5) WRITE (*, 30)
30     FORMAT ('DOSTOEVSKY, EAT YOUR HEART OUT!')
40     END

C      SUBROUTINE DEC - DECREMENT ARGUMENT BY 1
C
60     SUBROUTINE DEC (I)
70     I = I - 1
80     END