real pread*,pdo while(p>0)print*,pread*,p end doend这段程序是书上的一个例子，但是我想不通为什么倒数第三行出现 read*,p 呢，而且我运行了一下，发现如果有一行，假设输入7，输出就是7.000000，但是如果没有这一行，就是7.0000007.0000007.0000007.000000：：：：无限多个如果哪位大侠知道麻烦告诉我一下，小弟是个初学者。

答案：并没有终止循环，而是在等你键盘输入，要终止循环，输入<=0的数即可；没有第三行，如果输入>0的数无限死循环！除非你开始就输入<=0的数。