pxfwifexited(3F)

NAME
     PXFWIFEXITED - Determines if child process exited with exit

SYNOPSIS
     LOGICAL FUNCTION PXFWEXITED(istat)
     INTEGER istat

IMPLEMENTATION
     UNICOS, UNICOS/mk, and IRIX systems

DESCRIPTION
     The logical function PXFWIFEXITED returns the value TRUE if the child
     process exited with exit().  IPXFWEXITSTATUS() returns part of the
     bits of argument x from exit(x).

     The following argument is used for this routine:

     istat     An input integer variable with the PXFWAIT or PXFWAITPID
               output status argument.

     On IRIX systems, this routine is in libfortran.so which is linked by
     default when compiling programs with the MIPSpro 7 Fortran 90 compiler
     or when compiling programs with the -craylibs option to the MIPSpro
     F77 compiler.

     When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
     UNICOS, UNICOS/mk, or IRIX systems, all arguments must be of default
     kind unless documented otherwise.  On UNICOS and UNICOS/mk, default
     kind is KIND=8 for integer, real, complex, and logical arguments; on
     IRIX systems, the default kind is KIND=4.

EXAMPLES
          program pxftest
          integer istat, iretpid, ipid, ierror, i, j
          logical lwifexited, PXFWIFEXITED

          CALL PXFFORK(ipid,ierror)
          if (ierror .ne. 0) then
             print *,'FAILED: PXFFORK call failed with error = ',ierror
          else
             if (ipid .eq. 0) then
                j = 0
                  do i=1,100000
                     j = j + i
                  enddo
                  stop
             else
                CALL PXFWAIT(istat,iretpid,ierror)
                  if (ierror .eq. 0) then
                     print *,'PASSED: PXFWAIT normal test'
                     lwifexited = PXFWIFEXITED(istat)
                       if (lwifexited .eqv. .TRUE.) then ! exit normally
                          print *,'PXFWIFEXITED test PASSED'
                       else
                          print *,'PXFWIFEXITED returned FALSE'
                          print *,'PXFWAIT istat = ', istat
                          print *,'PXFWIFEXITED test FAILED'
                       endif
                  else
                       print *,'FAILED: PXFWAIT call with error = ',ierror
                  endif
             endif
          endif
          end

SEE ALSO
     IPXFWEXITSTATUS, PXFFORK(3F), PXFWAIT(3F)

     Application Programmer's Library Reference Manual for the printed
     version of this man page.