scanner.c (skip_free_comments, [...]): Use gfc_warning_now instead of ..._now_1.

2014-11-29  Tobias Burnus  <burnus@net-b.de>

        * scanner.c (skip_free_comments, gfc_gobble_whitespace): Use
        gfc_warning_now instead of ..._now_1.

From-SVN: r218180

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index a6e9035a29f3a015e9785fd99a96e1cc70233b3c..5f8e5928dbcfaa64e6e25f754571e1cf3a9a0f64 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2014-11-29  Tobias Burnus  <burnus@net-b.de>
+
+       * scanner.c (skip_free_comments, gfc_gobble_whitespace): Use
+       gfc_warning_now instead of ..._now_1.
+
 2014-11-29  Tobias Burnus  <burnus@net-b.de>
            Manuel López-Ibáñez  <manu@gcc.gnu.org>
 

diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c
index 884fe70cb3efc2f65b618598eb5dc76ecadc37d0..ec7e8ae65a14f92fc1f8aaed0bf4a176dd19880f 100644 (file)
--- a/gcc/fortran/scanner.c
+++ b/gcc/fortran/scanner.c
@@ -775,10 +775,10 @@ skip_free_comments (void)
                                }
                            }
                          else
-                           gfc_warning_now_1 ("!$OMP at %C starts a commented "
-                                              "line as it neither is followed "
-                                              "by a space nor is a "
-                                              "continuation line");
+                           gfc_warning_now ("!$OMP at %C starts a commented "
+                                            "line as it neither is followed "
+                                            "by a space nor is a "
+                                            "continuation line");
                        }
                      gfc_current_locus = old_loc;
                      next_char ();
@@ -1388,7 +1388,7 @@ gfc_gobble_whitespace (void)
          if (cur_linenum != linenum)
            {
              linenum = cur_linenum;
-             gfc_warning_now_1 ("Nonconforming tab character at %C");
+             gfc_warning_now (OPT_Wtabs, "Nonconforming tab character at %C");
            }
        }
     }