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

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));`