program namesProv
    implicit none
    common /names/ a_hello, b_hello, c_hello
    integer :: a_hello, b_hello, c_hello

    print *, "Test the test case program with given names"
end program namesProv