module common3
    implicit none

    contains
    subroutine help_common3
        common /block/ a_common, b_common, c_common
        integer :: a_common
        real :: b_common
        double precision :: c_common

        common /mem/ a, b, c
        integer :: a, b, c
    end subroutine help_common3
end module common3