Фортран. Не понимаю суть ошибки.

Question

if (x**2+y**2<=1) .and. (y<=0.5x) then 
 1 
Error: Cannot assign to a named constant at (1) 
 
какое имя? какая константа? это тупо число. тупо надо сравнить числа. причем, в подобной программе ошибок он не находит, а там в точности такие же выражения. компилятор force2.0

Алексей Зайцев · Accepted Answer

В скобку возьми x**2+y**2 
Должно быть if ((x**2+y**2)<=1) .and. (y<=0.5x) then 
И непонятно, что после then

Виталий Титов · Answer

и не поймешь

Сергей Белый · Answer

Фортран последний раз видел в 1985 году)) 
Интересно, что значит "then 1"? 
 
Обычно там стоит что-то вроде "then blabla=1"