2007-11-26 Steven G. Kargl <kargls@comcast.net>

        * options.c:  Change default behavior of backslash processing.
        * invoke.texi: Update documentation.

2007-11-26  Tobias Burnus  <burnus@net-b.de>

        PR fortran/34203
        * gfortran.dg/backslash_3.f: Add -fbackslash option.
        * gfortran.dg/init_flag_1.f90: Add -fbackslash option.
        * gfortran.dg/backslash_1.f90: Remove no longer needed
        -fno-backslash option.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130451 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index f43d26a..e93ea8e 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2007-11-26  Steven G. Kargl  <kargls@comcast.net>
+
+       PR fortran/34203
+       * options.c:  Change default behavior of backslash processing.
+       * invoke.texi: Update documentation.
+
 2007-11-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR fortran/33152

diff --git a/gcc/fortran/invoke.texi b/gcc/fortran/invoke.texi
index 7ab41de..2be5b5a 100644 (file)
--- a/gcc/fortran/invoke.texi
+++ b/gcc/fortran/invoke.texi
@@ -121,7 +121,7 @@ by type.  Explanations are in the following sections.
 -ffixed-line-length-@var{n}  -ffixed-line-length-none @gol
 -ffree-line-length-@var{n}  -ffree-line-length-none @gol
 -fdefault-double-8  -fdefault-integer-8  -fdefault-real-8 @gol
--fcray-pointer  -fopenmp  -fno-range-check -fno-backslash -fmodule-private}
+-fcray-pointer  -fopenmp  -fno-range-check -fbackslash -fmodule-private}
 
 @item Error and Warning Options
 @xref{Error and Warning Options,,Options to request or suppress errors
@@ -233,12 +233,12 @@ Do nothing if this is already the default.
 @cindex character set
 Allow @samp{$} as a valid character in a symbol name.
 
-@item -fno-backslash
-@opindex @code{fno-backslash}
+@item -fbackslash
+@opindex @code{backslash}
 @cindex backslash
 @cindex escape characters
-Change the interpretation of backslashes in string literals from
-``C-style'' escape characters to a single backslash character.
+Change the interpretation of backslashes in string literals
+from a single backslash character to ``C-style'' escape characters.
 
 @item -fmodule-private
 @opindex @code{fmodule-private}

diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c
index bfd0da0..16e9079 100644 (file)
--- a/gcc/fortran/options.c
+++ b/gcc/fortran/options.c
@@ -95,7 +95,7 @@ gfc_init_options (unsigned int argc ATTRIBUTE_UNUSED,
   gfc_option.flag_repack_arrays = 0;
   gfc_option.flag_preprocessed = 0;
   gfc_option.flag_automatic = 1;
-  gfc_option.flag_backslash = 1;
+  gfc_option.flag_backslash = 0;
   gfc_option.flag_module_private = 0;
   gfc_option.flag_backtrace = 0;
   gfc_option.flag_allow_leading_underscore = 0;

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 5ca77e8..498593d 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,11 @@
+2007-11-26  Tobias Burnus  <burnus@net-b.de>
+
+       PR fortran/34203
+       * gfortran.dg/backslash_3.f: Add -fbackslash option.
+       * gfortran.dg/init_flag_1.f90: Add -fbackslash option.
+       * gfortran.dg/backslash_1.f90: Remove no longer needed
+       -fno-backslash option.
+
 2007-11-26  Manuel Lopez-Ibanez  <manu@gcc.gnu.org>
 
        PR c/23722

diff --git a/gcc/testsuite/gfortran.dg/backslash_1.f90 b/gcc/testsuite/gfortran.dg/backslash_1.f90
index db7ddbc..b985134 100644 (file)
--- a/gcc/testsuite/gfortran.dg/backslash_1.f90
+++ b/gcc/testsuite/gfortran.dg/backslash_1.f90
@@ -1,5 +1,4 @@
 ! { dg-do run }
-! { dg-options "-fno-backslash" }
       character(len=4) a
       open (10, status='scratch')
       write (10,'(A)') '1\n2'

diff --git a/gcc/testsuite/gfortran.dg/backslash_3.f b/gcc/testsuite/gfortran.dg/backslash_3.f
index 08c86f3..905d2b4 100644 (file)
--- a/gcc/testsuite/gfortran.dg/backslash_3.f
+++ b/gcc/testsuite/gfortran.dg/backslash_3.f
@@ -1,4 +1,5 @@
 C { dg-do run }
+C { dg-options "-fbackslash" }
 C PR fortran/30278
       program a
       character(len=1), parameter  :: c1 = char(8), c2 = char(92)

diff --git a/gcc/testsuite/gfortran.dg/init_flag_1.f90 b/gcc/testsuite/gfortran.dg/init_flag_1.f90
index 343d384..764d322 100644 (file)
--- a/gcc/testsuite/gfortran.dg/init_flag_1.f90
+++ b/gcc/testsuite/gfortran.dg/init_flag_1.f90
@@ -1,5 +1,5 @@
 ! { dg-do run }
-! { dg-options "-finit-local-zero" }
+! { dg-options "-finit-local-zero -fbackslash" }
 
 program init_flag_1
   call real_test