PXFWIFEXITED(3F)				       Last changed: 1-6-98

NAME    [Toc]    [Back]

     PXFWIFEXITED - Determines if child	process	exited with exit

SYNOPSIS    [Toc]    [Back]

     LOGICAL FUNCTION PXFWEXITED(istat)
     INTEGER istat

IMPLEMENTATION    [Toc]    [Back]

     UNICOS, UNICOS/mk,	and IRIX systems

DESCRIPTION    [Toc]    [Back]

     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    [Toc]    [Back]

	  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    [Toc]    [Back]

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

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