program ta
 integer a(10)
 integer :: i
 integer(I4B)                :: n
end

