Я ветку почитал и могу сделать ввод: или магия случается, тоесть списываем все на магнитные бури на Юпитере или таки надо копать.
Если баг воспроизводится абсолютно хаотично то могу придположить ( из своего C++ опыта ) что кто то где то портит кучу и на выходе у вас фигня.
Кстати я так понимаю что Rand в фортране выдает число типа float / double потому что я не понимаю как NaN возможен в целых числах.
Вопрос: если написать простую голую программу в которой будет только один вызов функции main ( ну или что там в фортране, простите я не знаю ) и только в этой функции в цикле вызывать Rand и больше ничего.
NaN - появляется???
PS можете приложить асм листинг функции Rand ?