module common4
    implicit none

    contains
    subroutine help_common4
        common /mem/ a, b, c
        integer :: a, b, c
    end subroutine help_common4
end module common4