PGI Compilation Questions

What are Intrinsics and how do I call them directly?

Inline intrinsic functions map to actual x86 or x64 machine instructions. Intrinsics are inserted inline to avoid the overhead of a function call. The compiler has special knowlege of intrinsics, so with use of intrinsics, better code may be generated as compared to extended inline assembly code.

See the PGI User's Guide, Chapter 12, for information on how to use them.

What should I be aware of when mixing pgi fortran with g77

There are a number of things to be aware of:

  1. g77 may add a second underscore to symbols. To be compatible, we provide -Msecond_underscore

  2. g77 and pgf77-pgf90 do not share logical unit number assignment info. If you open a file with g77 compiled code, you should read and write to that LUN in only g77 compiled routines.

  3. One other problem with g77 files. xargc & xargv are g77's global variables which represent the fortran equivalents of C's argc & argv. The file, farg.f, contains references to the functions iargc() and getarg(). When g77 is used to compile farg.f, these variables are used by g77-generated code for the iargc() and getarg() functions. These variables are defined when there is a g77-compiled main program. pgf77 also has global variables for the same purpose and are named __argc_save & __argv_save.

    There are a couple of work-arounds:

    1. Add a C function which defines and assigns xarg & xargc and add a call to the C function from the fortran main program. For example: 
          
        zarg.c:
            int    xargc;
            char **xargv;
            extern int    __argc_save;
            extern char **__argv_save;
            void zarg_() {          /* call zarg() from fortran */
                xargc = __argc_save;
                xargv = __argv_save;
            }
    2. Recompile the file farg.f with 'pgf77 -c' and add the object to the link before -lmpich. If the second underscore is needed for global names, remember to include the second underscore option. The source for farg.f is: 
       
          integer function mpir_iargc()
          mpir_iargc = iargc()
          return
          end
          subroutine mpir_getarg( i, s )
          integer       i
          character*(*) s
          call getarg(i,s)
          return
          end

How Do I Remove the 'FORTRAN STOP' message when 'STOP' is Encountered?

The environment variable NO_STOP_MESSAGE should be declared, with any value.

Compiler intermittently fails with SIG interrupt or bad output

If any of the compilers fail from time to time with a SIGSEGV or SIGNAL 11 interrupt, it could be your temp directory.

Compile a dummy program with the compiler with -dryrun set 

    % pgcc -c -dryrun x.c
    Reading rcfile /usr/pgi/linux86/bin/.pgccrc
    Reading rcfile /usr/pgi/linux86/bin/linux86rc
    Reading rcfile /usr/pgi/linux86/bin/pgcomprc
    Reading rcfile /usr/pgi/linux86/bin/.pgirc
    
    /usr/pgi/linux86/bin/pgc x.c -x 122 0x40 -x 119 0x10000 \
    -x 123 0x1000 -x 119 0xa00000 -x 127 4 -x 119 0x8000000 -inform warn \
    -terse 1 -astype 0 -stdinc /usr/pgi/linux86/include:/usr/local/include: \
    /usr/i386-redhat-linux/include: \
    /usr/lib/gcc-lib/i386-redhat-linux/egcs-2.91.66/include:/usr/include  \
    -def unix -def i386 -def linux -def __unix__ -def __inline__= -def __i386__  \
    -def __linux__ -def __unix -def __i386 -def __linux -def __NO_MATH_INLINES  \
    -def linux86 -def unix -predicate #machine(i386) #lint(off) #system(unix)  \
    #system(posix) #cpu(i386) -opt 1 -x 80 0x300 -y 80 0x1000 -asm /tmp/pgccprl4kS 
    
    /usr/bin/as -o x.o /tmp/pgccprl4kS 
    Unlinking /tmp/pgccprl4kS
              ^^^^^^^^^^^^^^^

The file /tmp/pgccprl4kS is a temporary file holding the assembler source created by the compiler. Therefore /tmp is the directory used by the compiler. You can change the temporary directory by setting the TMPDIR environment variable to another directory.

Whatever directory you use for temporary files, make sure you have enough space in it and permissions to write to it, or you may see errors like the above, or you may see truncated temp files, which leads to very strange behavior.

pgf77/pgf90 do not handle #include "file" statements properly.

The statements 

 #include "filename"
    
           include "filename"

are handled differently in pgf77 and pgf90. #include is a preprocessor statement, while the indented 'include' statement is handled by the front end of the compiler.

To handle files with #include statements, either rename the file from 'x.f' to 'x.F', or use the switch 

      -Mpreprocess

in your compile line.

How do I easily call a compiler like 'pgcc' as 'cc'?

Some users want to keep gcc, and call pgcc as 'cc'. The easiest way to do this is to create a script file named cc and make sure your path is set up to find the cc script file. The script file, using csh syntax, is: 

      #!/bin/csh
      setenv PGI /usr/pgi      #! or wherever pgcc is installed
      set path=($PGI/linux86/bin $path)
      pgcc $*

If the PGI environment variable is already set, then delete the 'setenv' command.

We do not recommend renaming pgcc to cc. There are several changes that are necessary in order for this to work correctly, and each release changes the driver structure.

The F90 SIZE intrinsic with 64-bit compilers does not handle large arrays properly

The SIZE intrinsic is set to the samefunction type as the default INTEGER, which is 4 bytes with the 64-bit compilers. If users compile -i8 the default integer size is 8, and the SIZE intrinsic will now be 8 bytes.