PGI User Forum

[pekompi]

Hi,

one user reported a problem using 3F functions.

Using the normal pgi comipler everything is fine.
using mpif90 (from pgi) the 3F functions are NOT working.

Whats wrong ?

mpif90 -o read_test read_test.f90
./read_test
0
0

Aber mit pgf90 compiliert funktioniert es richtig:

pgf90 -o read_test read_test.f90
./read_test
0
40


code:
program read_test

implicit none

integer :: ftell

integer :: ihead(8)

open(11, FILE="landsea.srv", STATUS='old', FORM='unformatted')
write(*,*) ftell(11)
read(11) ihead
write(*,*) ftell(11)
close(11)

end

[mkcolg]

Hi pekompi,

It looks like a library ordering issue. The mpif90 driver is adding the F77 runtime before the F90 runtime library so ftell is pick-up up the F77 I/O. Since the F77 and F90 I/O are completely separate, ftell shows that the file hasn't moved.

The workaround is to add "-lpgf90rtl" to the mpif90 link so that the ftell uses the F90 I/O.

[jtull]

This TPR was fixed in our 12.5 release.

Sorry about the late word.

dave