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