namepsace clash

I’m posting this in case I’ve overlooked something – but I’ve already send the example to PGI Customer service – this is the same code that causes the linker to crash w/ -Mipa=fast

A routine, called setpeaks(), uses the parameter idxPT%setpeaks (defined in an included file) and this produces an iodsyncratic set of errors:

PGF90-S-0447-Argument number 3 to setpeaks must be a subroutine or function name (dofit5fiimp.f90: 151)
PGF90-S-0188-Argument number 6 to setpeaks: type mismatch (dofit5fiimp.f90: 151)
PGF90-S-0188-Argument number 6 to setpeaks: type mismatch (dofit5fiimp.f90: 151)
PGF90-S-0447-Argument number 7 to setpeaks must be a subroutine or function name (dofit5fiimp.f90: 151)
0 inform, 0 warnings, 4 severes, 0 fatal for dofit5fii
PGF90-S-0000-Internal compiler error. make_alnd: descriptor does not exist 1205 (dofit5fiimp.f90: 392)
PGF90-S-0000-Internal compiler error. make_secd: descriptor does not exist 1205 (dofit5fiimp.f90: 392)
PGF90-S-0000-Internal compiler error. change_mk_id: of non-arrdsc 6 (dofit5fiimp.f90: 392)
PGF90-S-0000-Internal compiler error. emit_alnd: descriptor does not exist 1205 (dofit5fiimp.f90: 392)
PGF90-S-0000-Internal compiler error. emit_secd: descriptor does not exist 1205 (dofit5fiimp.f90: 392)
0 inform, 0 warnings, 5 severes, 0 fatal for setpeaks
make: *** [dofit5fiimp.o] Error 2

this is a parameter (the index to use in that routine) defined from a user defined type.

If instead I define and use “idxPT%setpeakx” (replace the last s by x), the code compiles links and runs fine.

Sylvain.

Thanks Sylvain. Is see that Customer service was able to reproduce the error and has sent it on to engineering for further investigation.

  • Mat