PXFWIFEXITED(3F) Last changed: 1-6-98
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
7.2 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, publication SR-
2165, for the printed version of this man page.
