From: Daniel Franke <franke.daniel@gmail.com>
Date: Fri, 14 Dec 2007 10:25:12 +0000 (-0500)
Subject: re PR fortran/34324 (Module files on CRLF systems)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=e96e22e379b2e9773c48d9ea476be5d72a311d96;p=gcc.git

re PR fortran/34324 (Module files on CRLF systems)

2007-12-14  Daniel Franke  <franke.daniel@gmail.com>

        PR fortran/34324
        * module.c (parse_atom): Fixed parsing of modules files whose
        lines are terminated by CRLF.

From-SVN: r130928
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index e0cdc78d570..1000705a2fb 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2007-12-14  Daniel Franke  <franke.daniel@gmail.com>
+
+	PR fortran/34324
+	* module.c (parse_atom): Fixed parsing of modules files whose
+	lines are terminated by CRLF.
+
 2007-12-13  Anton Korobeynikov  <asl@math.spbu.ru>
 
 	* trans-decl.c (gfc_build_builtin_function_decls): Correct decl
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c
index c48bc68f9b2..9cb082a4f78 100644
--- a/gcc/fortran/module.c
+++ b/gcc/fortran/module.c
@@ -1116,7 +1116,7 @@ parse_atom (void)
     {
       c = module_char ();
     }
-  while (c == ' ' || c == '\n');
+  while (c == ' ' || c == '\r' || c == '\n');
 
   switch (c)
     {