Открытие файла в Фортране

Добрый день. Проблема простая, пришлось столкнуться с программой на фортране, там в одном модуле код

filename='123.txt'
OPEN(UNIT=12,ERR=70,STATUS='OLD',FILE=filename)

понятно - открывается файл, но прогоняя отладчиком, при выполнении OPEN.. процесс зависает и всё, данный файл существует, находится там где надо, помогите разобраться. Заранее благодарен.

patrick1968,

информации маловато.
что на метке 70 находится?

на выход из модуля

70 write(*,72)
72 format('ВЫХОД ')
END

У меня сильные подозрения, что программа файл не находит, как это можно проверить?

patrick1968
У меня сильные подозрения, что программа файл не находит, как это можно проверить?

полный путь указать, права доступа проверить.
одинхер виснуть не должна.
без отладчика 'ВЫХОД ' - выводится?

нет не выводится, она тут же сообщает о каких-то косяках в др. модулях

patrick1968
она тут же сообщает о каких-то косяках в др. модулях

читать внимательно что за косяки, куда деваться

Изопропил
полный путь указать, права доступа проверить.

+1

Изопропил
patrick1968 она тут же сообщает о каких-то косяках в др. модулях читать внимательно что за косяки, куда деваться

+1

implicit none
CHARACTER*100 filename

filename='123.txt'
OPEN(UNIT=12,ERR=70,STATUS='OLD',FILE=filename)
goto 22
70 write(*,*)'No File'
goto 33

22 write(*,*)'File Found'
close(12)
33 end

Алексей Кондыганов,

[quot S.G.]

Изопропил
полный путь указать, права доступа проверить.

+1