blob: b2635be380f76915fdf3297d8dec9fe0dfea4fb6 [file] [log] [blame]
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