camfort-0.900: tests/Camfort/Transformation/samples/common.f90

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