Solve[x == I Sqrt[x], x]