Константа в фортране

[Kwah]

В общем, во втором случае программа тоже работает, только она впадает в бесконечный цикл. Почему - ковыряй в отладчике.

Что плохого? Начиная от форматирования (мешанина пробелов и табов) и заканчивая логикой программы — очень тяжело понять, что же ты пытаешься сделать. Множественные GOTO этому не способствуют.