Program gcommon
  Common/c/w,x,y,z
  w = 2.5
  Call sub
  Print *,w,x,y,z
End Program
Subroutine sub
  Common/c/w,xy,z ! Note the missing comma.
  x = w ** 2
  y = x * w
  z = y * x
End Subroutine