PXFWIFSIGNALED(3F) Last changed: 1-6-98
NAME
PXFWIFSIGNALED - Determines if the child process terminated because of
a signal
SYNOPSIS
LOGICAL FUNCTION PXFWIFSIGNALED(istat)
INTEGER istat
IMPLEMENTATION
UNICOS, UNICOS/mk, and IRIX systems
DESCRIPTION
The PXFWIFSIGNALED logical function returns TRUE if the child process
has terminated because of a signal. The IPXFWTERMSIG(3F) function
returns part of the signal that terminated the child process.
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, ichldid, isig
logical lwifsignaled, PXFWIFSIGNALED
CALL PXFFORK(ipid,ierror)
if (ierror .ne. 0) then
print *,'FAILED: PXFFORK call failed with error = ',ierror
print *,'ipid=',ipid
else
print *,'PASSED: PXFFORK call'
if(ipid.eq.0) then
call PXFGETPID(ichldid,ierror)
if(ierror .ne. 0) then
print *, 'PXFGETPID FAILED, ierror=', ierror
else
print *, 'PXFGETPID PASSED'
endif
call PXFCONST("SIGKILL",isig,ierror)
if(ierror .ne. 0) then
print *, 'PXFCONST FAILED, ierror=', ierror
else
print *, 'PXFCONST PASSED'
endif
call PXFKILL(ichldid,isig,ierror)
if(ierror .ne. 0) then
print *, 'PXFKILL FAILED, ierror=', ierror
else
print *, 'PXFKILL PASSED'
endif
else
CALL PXFWAIT(istat,iretpid,ierror)
if (ierror .eq. 0) then
print *,'PASSED: PXFWAIT normal test'
lwifsignaled = PXFWIFSIGNALED(istat)
if (lwifsignaled .eqv. .TRUE.) then ! exit normally
print *,'PXFWIFSIGNALED test PASSED'
else
print *,'PXFWIFSIGNALED test FAILED'
print *,'PXFWIFSIGNALED returned FALSE'
print *,'PXFWAIT istat = ', istat
print *,'iretpid= ', iretpid
endif
else
print *,'FAILED: PXFWAIT call with error = ',ierror
print *,'PXFWAIT istat = ', istat
print *,'iretpid= ', iretpid
endif
endif
endif
print *,'test complete'
end
SEE ALSOIPXFTERMSIG(3F), PXFWAIT(3F)
Application Programmer's Library Reference Manual, publication SR-
2165, for the printed version of this man page.
