blob: 96f368757caad416f5c6f6638954391f023039c4 [file] [log] [blame]
program namesProv
implicit none
common /names/ a, b, this_is_renamed
integer :: a, b, this_is_renamed
print *, "Test the test case program with given names"
end program namesProv