PROGRAM Main
    IMPLICIT NONE
    INTEGER :: result, n

    DO n = 1,5
        CALL counter(result)
        PRINT *, result
    END DO

CONTAINS

    SUBROUTINE counter (count)
        IMPLICIT NONE
        INTEGER, INTENT(OUT) :: count
        INTEGER, SAVE :: state = 7

        count = state
        state = state+1
    END SUBROUTINE counter

END PROGRAM Main