Słowa kluczowe ERR i END umożliwiają programową obsługę błędów. Przykładowo ciąg instrukcji:
read(1,*,end=10,err=20) x
goto 30
10 print *,"Koniec danych"
goto 30
20 print *,"Blad w danych"
30 continue
spowoduje, że zamiast systemowej sygnalizacji błędu i przerwania programu pojawi się komunikat zaprogramowany przez programistę i program nie ulegnie przerwaniu.
Zmodyfikuj program formread.f tak, aby po napotkaniu błędu w instrukcji czytania pojawiał się komunikat:
Blad w danych
a w przypadku napotkania końca pliku gdy program jeszcze chce czytać dane pojawiał się komunikat:
Koniec danych przed koncem czytania
Jak spowodować aby program drukował linię, w której wystąpił błąc? (Wskazówka: przypomnij sobie podaną na wykładzie informację, że urządzeniem czytania może być łańcuch tekstowy).