+2007-04-25 Janne Blomqvist <jb@gcc.gnu.org>
+
+ * module.c (module_char): Replace fgetc() with
+ getc().
+ (write_char): Replace fputc() with putc().
+ * scanner.c (load_line): Replace fgetc() with getc().
+ (gfc_read_orig_filename): Likewise.
+
2007-04-25 Tobias Burnus <burnus@net-b.de>
PR fortran/31668
{
int c;
- c = fgetc (module_fp);
+ c = getc (module_fp);
if (c == EOF)
bad_module ("Unexpected EOF");
static void
write_char (char out)
{
- if (fputc (out, module_fp) == EOF)
+ if (putc (out, module_fp) == EOF)
gfc_fatal_error ("Error writing modules file: %s", strerror (errno));
/* Add this to our MD5. */
buffer = *pbuf;
preprocessor_flag = 0;
- c = fgetc (input);
+ c = getc (input);
if (c == '#')
/* In order to not truncate preprocessor lines, we have to
remember that this is one. */
for (;;)
{
- c = fgetc (input);
+ c = getc (input);
if (c == EOF)
break;
/* Truncate the rest of the line. */
for (;;)
{
- c = fgetc (input);
+ c = getc (input);
if (c == '\n' || c == EOF)
break;
if (gfc_src_file == NULL)
return NULL;
- c = fgetc (gfc_src_file);
+ c = getc (gfc_src_file);
ungetc (c, gfc_src_file);
if (c != '#')
if (filename == NULL)
return NULL;
- c = fgetc (gfc_src_file);
+ c = getc (gfc_src_file);
ungetc (c, gfc_src_file);
if (c != '#')