pxfwifexited(3F)

NAME
     PXFWIFEXITED - Determines if child process exited with exit

SYNOPSIS
     LOGICAL FUNCTION PXFWEXITED(istat)
     INTEGER istat

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.

     All arguments must be of default kind unless documented otherwise. On
     IRIX systems, the default kind is KIND=4.

NOTES
     The PXF_DEFINITIONS module can be used by Fortran 90 users to enable
     caller-callee interface checking.

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)