If you run this on a CDC 6400 class machine it prints 2 which was both fun and educational :) PROGRAM ONETWO CALL ADDONE(1) PRINT*, 1 END SUBROUTINE ADDONE (NUMBER) NUMBER=NUMBER+1 RETURN END

If you run this on a CDC 6400 class machine it will print 2 which was both fun and educational :) PROGRAM ONETWO CALL ADDONE(1) PRINT*, 1 END SUBROUTINE ADDONE (NUMBER) NUMBER=NUMBER+1 RETURN END