各位大虾：
Open(100,file='out',status='old')
DO WHILE(.NOT.EOF(100))
FNUM=FNUM+1
READ(100,*)FNM(FNUM)
ENDDO
CLOSE(100)
上述程序在ifort、compaq fortran中均可正常编译、执行，但在pgf90中却被报错。
错误信息如下：
'PGF90-S-0121-Operation requires logical or integer data types'
恳请达人指点！

 

FNUM默认为实型数，最简单的方法是将FNUM改为NUM即可。