Bug in PGI Fortran 7.1.4, 7.1.6

With this distilled extract

module pqr
  implicit none
  type kp
    integer :: index(1:4) = -1
    integer :: null                   ! <== use of null here triggers bug
  end type kp
   type kpn
      type(kp)                     :: ma77keep
      integer,  dimension(:), pointer     :: ma57_ifact => null()
   end type kpn
end module pqr

the compiler gets confused by the use of ‘null’ as an integer and the call to the intrinsic function null() and says

PGF90-S-0084-Illegal use of symbol null (pqr.f90: 10)
0 inform, 0 warnings, 1 severes, 0 fatal for pqr

I request that someone try and report whether a more recent version of the compiler (than 7.1.4, 7.1.6) shows the same bug.

Hi N. Shamsundar,

Thank you for the report. This is first time we’ve since this issue so unfortunately the problem is still present in the 8.0 compilers. I’ve created a technical problem report (TPR#15470) and have passed it along to our engineers for investigation. Hopefully we can have it fixed shortly.

Best Regards,

Hi N. Shamsundar,

TPR #15470 has been fixed as of the 8.0-4 release.

  • Mat