Program Main
  Implicit None
  Integer a,b(3)
  Common /AB/ a, b

  Print *, 'AB = ', a,b
End Program Main

Block Data MyBlock
  Implicit None
  Integer a, b(3)
  Common /AB/ a, b
  Data a/2/, b/3,4,5/
End Block Data MyBlock