Реферат: Оператор присваивания языка FORTRAN

{error(12);

err[0]=END;

}

else identif();

if(next!=RAV) error(4);

else

{temp=1;

if(err[0]!=END)

{if(err[0]!=ID) error(1);

for(int i=1;i<sum;i++)

{next=err[i];

identif();

}

}

temp=2;

next=scaner();

if((next==_EOF_)||(next==_EOLN_)) error(11);

else

{while(1)

{expr();

if(next==SKL) error(10);

else

{if(next==SKR)

{error(9);

next=scaner();

}

if(next==ID)

{error(10);

next=scaner();