blob: 9fe1e9334e7bc12ffba383175e4856824bb8617a [file] [log] [blame]
program namesProv2
implicit none
common /names/ q, w, e
integer q, w, e
q = 2
w = 4
e = q + w
end program namesProv2