I am using the 32-bit pgf95 version 2010 on OSX 10.5.8. I noticed a fatal error message when compiling legacy code and was able to simplify the offending code to the following.
$ cat mymod.f90 module whatever implicit none integer, parameter, private :: wp = kind(0.0d0) type unused integer :: wp end type unused contains subroutine somesub(x) real(wp), intent(inout) :: x x = 1.0_wp end subroutine somesub end module whatever
Upon compiling I get:
$ pgf95 -c mymod.f90 PGF90-S-0084-Illegal use of symbol wp - KIND parameter (mymod.f90: 13) 0 inform, 0 warnings, 1 severes, 0 fatal for somesub
Admittedly, it isn’t very smart to have two symbols named wp . But is it wrong? One of them is a member of a derived type.