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

case '\n':return(11);

case EOF:return(12);

default:return(0);

}

}//else

}

// РАСПОЗНАЕТ ОШИБКИ В ИДЕНТИФИКАТОРЕ.

void identif(void)

{if(temp==0)

{while((next!=RAV)&&(next!=_EOLN_)&&(next!=_EOF_))

{err[sum]=next;

sum++;

next=scaner();

}

}

if(temp==1)

{if((next!=CBZ)&&(next!=ID))

{if(next==ERROR) error(2);

else error(3);

}

number=num-1;

num=0;

}

if(number>6) error(5);

}

// НЕТЕРМИНАЛ "O" <Операнд >

void operand()

{if(next==SKL)

{next=scaner();