/************************************************************************
*                                                                       *    
*  Copyright Digital Equipment Corporation 1998. All rights reserved.   *
*                                                                       *    
*  Restricted Rights: Use, duplication, or disclosure by the U.S.       *    
*  Government is subject to restrictions as set forth in subparagraph   *    
*  (c) (1) (ii) of DFARS 252.227-7013, or in FAR 52.227-19, or in FAR   *    
*  52.227-14 Alt. III, as applicable.                                   *    
*                                                                       *    
*  This software is proprietary to and embodies the confidential        *    
*  technology of Digital Equipment Corporation. Possession, use, or     *    
*  copying of this software and media is authorized only pursuant to a  *    
*  valid written license from Digital or an authorized sublicensor.     *    
*                                                                       *    
************************************************************************/

/*      perror_example.c        */

#include <stdio.h>
#include <stdlib.h>

main(argc, argv)
    int argc;
    char *argv[];
{
    FILE *fp;

    fp = fopen(argv[1], "r");   /* Open an input file. */
    if (fp == NULL) {

        /* If the fopen call failed, perror prints out a        */
        /* diagnostic:                                          */
        /*                                                      */
        /*  "open: <error message>"                             */
        /*  This error message provides a diagnostic explaining */
        /*  the cause of the failure.                           */

        perror("open");
        exit(EXIT_FAILURE);
    }
    else
        fclose(fd) ;
}