Solve[{3*x^2 + y == 0, x + 3*y^2 == 0}
Select[x/.%,Element[#,Reals]&]