program program1
use module2
use module3, only: help_common3, onlytest
use module4, only: help_common4
implicit none

common /block/ a, b, c, /mem/ r, f, t
integer :: a
real :: b
double precision :: c

integer :: r, f, t

a = 5
b = 4.6
c = 2.345

call helper
end program program1

subroutine helper
implicit none
common /block/ e, f, g
integer :: e
real :: f
double precision :: g
end subroutine helper