OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [fortran/] [module.c] - Diff between revs 285 and 378

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 285 Rev 378
Line 71... Line 71...
#include "gfortran.h"
#include "gfortran.h"
#include "arith.h"
#include "arith.h"
#include "match.h"
#include "match.h"
#include "parse.h" /* FIXME */
#include "parse.h" /* FIXME */
#include "md5.h"
#include "md5.h"
 
#include "cpp.h"
 
 
#define MODULE_EXTENSION ".mod"
#define MODULE_EXTENSION ".mod"
 
 
/* Don't put any single quote (') in MOD_VERSION,
/* Don't put any single quote (') in MOD_VERSION,
   if yout want it to be recognized.  */
   if yout want it to be recognized.  */
Line 5098... Line 5099...
    {
    {
      unlink (filename);
      unlink (filename);
      return;
      return;
    }
    }
 
 
 
  if (gfc_cpp_makedep ())
 
    gfc_cpp_add_target (filename);
 
 
  /* Write the module to the temporary file.  */
  /* Write the module to the temporary file.  */
  module_fp = fopen (filename_tmp, "w");
  module_fp = fopen (filename_tmp, "w");
  if (module_fp == NULL)
  if (module_fp == NULL)
    gfc_fatal_error ("Can't open module file '%s' for writing at %C: %s",
    gfc_fatal_error ("Can't open module file '%s' for writing at %C: %s",
                     filename_tmp, strerror (errno));
                     filename_tmp, strerror (errno));

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.