subroutine test(a,b, c) use Cmn, c1 => Cmn_c1, c2 => Cmn_c2, c3 => Cmn_c3 real :: a, b, c print *, a, b, c end subroutine test