program common1
!use common2
!use common3
!use common4
implicit none

common /block/ a_common, b_common, c_common, /mem/ r, f, t
integer :: a_common
real :: b_common
double precision :: c_common

integer :: r, f, t

a_common = 5
b_common = 4.6
c_common = 2.345

call helper
end program common1

subroutine helper
implicit none
common /block/ a_common, b_common, c_common
integer :: a_common
real :: b_common
double precision :: c_common
end subroutine helper