problem with the lack of reserved variable names

[phreeplot]

trafficstars

logical:: g = .true.
character(2) :: eq = "OK"
if (g .and. eq.ne.'') print *, eq
end

becomes

logical:: g = .true.
character(2) :: eq = "OK"
if (g.and .eq. ne.'') print *, eq
end

All a bit of a nightmare no doubt.