subroutine test(a,b, c)

integer :: c1, c2, c3
COMMON /cmn/  c1, c2, c3

real :: a, b, c

print *, a, b, c

end subroutine test