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