7. Управляющие операторы и конструкции

Последовательность выполнения программы определяется операторами и конструкциями, обеспечивающими ветвления и циклы. Совместно с ними могут быть использованы операторы перехода и прерывания цикла. Такие операторы и конструкции относятся к управляющим. Их рассмотрение мы начали во 2-й главе, ограничившись, правда, наиболее часто употребляемыми. Теперь же мы дадим полное описание всех управляющих конструкций (кроме приведенных в разд. 4.7 конструкций WHERE и FORALL). При этом часть управляющих операторов и конструкций будет выделена в разряд нерекомендуемых или устаревших, сохраненных в Фортране с целью преемственности с более ранними версиями.

Как и ранее, необязательные элементы операторов заключаются в квадратные скобки. Используемые в главе сокращения введены в разд. 2.2.

7.1. Оператор GOTO безусловного перехода

Используется для передачи управления по метке и имеет вид: GOTO метка

В современном Фортране GOTO, так же как альтернативный выход из подпрограммы и дополнительный вход (ENTRY) в процедуру, следует полностью заменить другими управляющими конструкциями.

Замечания:

1. Запрещается переход внутрь конструкций DO, IF, SELECT CASE

иWHERE.

2.В Фортране можно также организовать переход по вычислению (вычисляемый GOTO) и предписанию (назначаемый GOTO). Описание этих операторов приведено в прил. 2.

Пример. GOTO используется для организации повторных действий, т. е. цикла.

integer(1) in 10 continue

print *, 'Введите число от 1 до 10: ' read *, in

if(in >= 1 .and. in <= 10) then print *, 'Ваш ввод: ', in

else

print *, 'Ошибка. Повторите ввод' goto 10

203