URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
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));
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.