PGI User Forum

[Breitenfeld]

OS: 2.6.18-308.13.1.el5PAE #1 SMP i686 i686 i386 GNU/Linux
pgif90 versions: 12.5-0, 11.9-0

Program main
integer :: file_sz
OPEN(UNIT=10,FILE='test.in')
INQUIRE(UNIT=10, SIZE=file_sz)
print*,file_sz
CLOSE(UNIT=10)
END

ls:
-rw-r--r-- 1 5 Feb 18 09:49 test.in

This program always returns a large negative number for file_sz (it should be 5). Is SIZE= not implemented? Same program (and test.in file) using gfortran and ifort works correctly.

[mkcolg]

Hi Breitenfeld,

Thanks for the report. I've written a problem report (TPR#19140) and sent it to our engineers for further investigation.

- Mat

[Breitenfeld]

Could you tell me the status of this, was it a bug? was it reproducible?

Thanks

[mkcolg]

Hi Breitenfeld,

I just confirmed that TPR#19140 was fixed in the 13.3 release.