PGI User Forum
 SearchSearch   MemberlistMemberlist     RegisterRegister   ProfileProfile    Log inLog in 

CUDA-x86.

pgf90: FILE INQUIRE and SIZE option does not work
Goto page 1, 2  Next
 
Post new topic   Reply to topic    PGI User Forum Forum Index -> Programming and Compiling
View previous topic :: View next topic  
Author Message
Breitenfeld



Joined: 07 Jul 2008
Posts: 10

PostPosted: Mon Feb 18, 2013 9:11 am    Post subject: pgf90: FILE INQUIRE and SIZE option does not work Reply with quote

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.
Back to top
View user's profile
mkcolg



Joined: 30 Jun 2004
Posts: 6119
Location: The Portland Group Inc.

PostPosted: Mon Feb 18, 2013 2:06 pm    Post subject: Reply with quote

Hi Breitenfeld,

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

- Mat
Back to top
View user's profile
Breitenfeld



Joined: 07 Jul 2008
Posts: 10

PostPosted: Wed Mar 20, 2013 10:21 pm    Post subject: Reply with quote

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

Thanks
Back to top
View user's profile
mkcolg



Joined: 30 Jun 2004
Posts: 6119
Location: The Portland Group Inc.

PostPosted: Fri Mar 22, 2013 12:03 pm    Post subject: Reply with quote

Hi Breitenfeld,

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

Code:
% pgfortran -V13.2 test.f90
% a.out
   1670019224
% a.out
   -521048312
% pgfortran -V13.3 test.f90
% a.out
            0


Thanks again for reporting this issue.

- Mat
Back to top
View user's profile
Breitenfeld



Joined: 07 Jul 2008
Posts: 10

PostPosted: Thu Mar 20, 2014 2:38 pm    Post subject: Reply with quote

I just check the INQUIRE function using

pgf90 14.3-0 64-bit target on x86-64 Linux

and the INQUIRE function no longer works. Using the file:

-rw-r--r--. 1 brtnfld 2544 Mar 20 15:19 tget_file_image.h5

and the program:

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

With 14.3 the file_sz is always zero 0

With

pgf90 13.7-0 32-bit it returns 2544
pgf90 13.7-0 64-bit it returns 2544

which is correct

So it looks like the function is again broken :(
Back to top
View user's profile
Display posts from previous:   
Post new topic   Reply to topic    PGI User Forum Forum Index -> Programming and Compiling All times are GMT - 7 Hours
Goto page 1, 2  Next
Page 1 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © phpBB Group