From 4e6bf1786b00e4246d3afd78302cfc2b9350ffde Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Mon, 26 Nov 2007 23:14:20 +0100 Subject: [PATCH] [multiple changes] 2007-11-26 Steven G. Kargl * options.c: Change default behavior of backslash processing. * invoke.texi: Update documentation. 2007-11-26 Tobias Burnus 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. From-SVN: r130451 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/invoke.texi | 10 +++++----- gcc/fortran/options.c | 2 +- gcc/testsuite/ChangeLog | 8 ++++++++ gcc/testsuite/gfortran.dg/backslash_1.f90 | 1 - gcc/testsuite/gfortran.dg/backslash_3.f | 1 + gcc/testsuite/gfortran.dg/init_flag_1.f90 | 2 +- 7 files changed, 22 insertions(+), 8 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index f43d26a..e93ea8e 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2007-11-26 Steven G. Kargl + + PR fortran/34203 + * options.c: Change default behavior of backslash processing. + * invoke.texi: Update documentation. + 2007-11-25 Jerry DeLisle PR fortran/33152 diff --git a/gcc/fortran/invoke.texi b/gcc/fortran/invoke.texi index 7ab41de..2be5b5a 100644 --- 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 --- 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 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,11 @@ +2007-11-26 Tobias Burnus + + 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 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 --- 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 --- 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 --- 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 -- 2.7.4