MODULE Summer
    IMPLICIT NONE
    REAL, SAVE, PRIVATE :: fred = 0.0, joe = 0.0, bill = 0.0
CONTAINS
    SUBROUTINE A
        IMPLICIT NONE
        fred = fred+1.23
    END SUBROUTINE A
    SUBROUTINE B
        IMPLICIT NONE
        joe = fred+0.7
    END SUBROUTINE B
    SUBROUTINE C
        IMPLICIT NONE
        bill = fred+joe
    END SUBROUTINE C
    SUBROUTINE D
        IMPLICIT NONE
        PRINT *, bill
    END SUBROUTINE D
END MODULE Summer