sysexit.f

************************************************************************
* SYSEXIT
* D. Everhart
************************************************************************
* The MIT License (MIT)
* 
* Copyright (c) 2016 Daniel Everhart
* 
* Permission is hereby granted, free of charge, to any person obtaining
* a copy of this software and associated documentation files (the 
* "Software"), to deal in the Software without restriction, including
* without limitation the rights to use, copy, modify, merge, publish,
* distribute, sublicense, and/or sell copies of the Software, and to
* permit persons to whom the Software is furnished to do so, subject
* to the following conditions:
* 
* The above copyright notice and this permission notice shall be
* included in all copies or substantial portions of the Software.
* 
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
* IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
* CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
* TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
* 
************************************************************************
* This program tests the exit status of a SYSTEM call.  The command has
* wierd attribute.  Not sure if this is a big/little endian issue.  The
* value is put into the second byte.  So, a INTEGER*1 data type is
* created to accomodate the return status.
************************************************************************
      PROGRAM SYSEXIT
      IMPLICIT NONE
      INTEGER*1 BYTE
      INTEGER RES
      CALL SYSTEM('bash <<EOF' // CHAR(10) //
     &            'exit -1'    // CHAR(10) //
     &            'EOF',
     &            RES)
      BYTE = ISHFT(RES,-8)
      WRITE(6,810) BYTE
  810 FORMAT('0*** RESULT = ',I8)
  999 STOP
      END PROGRAM SYSEXIT