blob: 6f605e8a8eb59218f4a69fdfb070eaf671e70917 [file] [log] [blame]
program namesProv
implicit none
common /names/ a_hello, b_hello, c_hello !<<<<< 3, 13, 3, 18, a_hello, b_hello, c_hello, pass
integer :: a_hello, b_hello, c_hello
print *, "Test the test case program with given names"
end program namesProv