org.eclipse.photran.core.vpg.tests/make-common-var-names-consist-test-code/short2.f90.result

program common1
  implicit none

  common /block/ aaa, bbb, c
  integer :: aaa
  real :: bbb
  double precision :: c

  aaa = 5
  bbb = 4.6
  c = 2.345
  print *, aaa, bbb, c

  call helper
  print *, aaa, bbb, c
end program common1

subroutine helper
  implicit none
  common /block/ aaa, bbb
  integer :: aaa
  real :: bbb
  
  aaa = 50
  bbb = 40.6
end subroutine helper