循环体中的read*，p有这个避免无限循环的作用呢？

real p
read*,p
do while(p>0)
print*,p
read*,p
end do
end

这段程序是书上的一个例子，但是我想不通为什么倒数第三行出现 read*,p 呢，而且我运行了一下，发现如果有一行，假设输入7，输出就是7.000000，但是如果没有这一行，就是
7.000000
7.000000
7.000000
7.000000
：：：：
无限多个

如果哪位大侠知道麻烦告诉我一下，小弟是个初学者。

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