diff options
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 12 | ||||
| -rw-r--r-- | gcc/fortran/gfortran.h | 1 | ||||
| -rw-r--r-- | gcc/fortran/gfortran.texi | 4 | ||||
| -rw-r--r-- | gcc/fortran/invoke.texi | 9 | ||||
| -rw-r--r-- | gcc/fortran/lang.opt | 4 | ||||
| -rw-r--r-- | gcc/fortran/options.c | 5 | ||||
| -rw-r--r-- | gcc/fortran/primary.c | 2 |
7 files changed, 31 insertions, 6 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index da57e97..614a238 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,4 +1,14 @@ -2005-06-20 Steven G. Kargl <kargls@comcast.net. +2005-06-19 Francois-Xavier Coudert <coudert@clipper.ens.fr> + + * gfortran.h: Add flag_backslash compile-time option. + * lang.opt: Add support for -fbackslash option. + * options.c: Likewise. + * primary.c: Implement behavior for -fno-backslash. + * invoke.texi: Add doc for -fbackslash option. + * gfortran.texi: Remove mention of -fno-backslash as a + possible extension. + +2005-06-20 Steven G. Kargl <kargls@comcast.net> (port from g95) PR fortran/21257 diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index 69a56e1..085e1ae 100644 --- a/gcc/fortran/gfortran.h +++ b/gcc/fortran/gfortran.h @@ -1421,6 +1421,7 @@ typedef struct int flag_pack_derived; int flag_repack_arrays; int flag_f2c; + int flag_backslash; int q_kind; diff --git a/gcc/fortran/gfortran.texi b/gcc/fortran/gfortran.texi index 50b6499..9ac79b8 100644 --- a/gcc/fortran/gfortran.texi +++ b/gcc/fortran/gfortran.texi @@ -504,10 +504,6 @@ Flag to cause the compiler to distinguish between upper and lower case names. The Fortran 95 standard does not distinguish them. @item -Compile switch for changing the interpretation of a backslash from a -character to ``C''-style escape characters. - -@item Compile flag to generate code for array conformance checking (suggest -CC). @item diff --git a/gcc/fortran/invoke.texi b/gcc/fortran/invoke.texi index e3d2e26..feeacf7 100644 --- a/gcc/fortran/invoke.texi +++ b/gcc/fortran/invoke.texi @@ -208,6 +208,15 @@ Do nothing if this is already the default. @cindex character set Allow @samp{$} as a valid character in a symbol name. +@cindex -fno-backslash option +@cindex options, -fno-backslash +@item -fno-backslash +@cindex backslash +@cindex escape characters +@item +Compile switch to change the interpretation of a backslash from +``C''-style escape characters to a single backslash character. + @cindex -ffixed-line-length-@var{n} option @cindex options, -ffixed-line-length-@var{n} @item -ffixed-line-length-@var{n} diff --git a/gcc/fortran/lang.opt b/gcc/fortran/lang.opt index 6798b6d..fd92d15 100644 --- a/gcc/fortran/lang.opt +++ b/gcc/fortran/lang.opt @@ -85,6 +85,10 @@ fdollar-ok F95 Allow dollar signs in entity names +fbackslash +F95 +Specify that backslash in string introduces an escape character + fdump-parse-tree F95 Display the code tree after parsing. diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index 347f706..681dbda 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -70,6 +70,7 @@ gfc_init_options (unsigned int argc ATTRIBUTE_UNUSED, gfc_option.flag_no_backend = 0; gfc_option.flag_pack_derived = 0; gfc_option.flag_repack_arrays = 0; + gfc_option.flag_backslash = 1; gfc_option.q_kind = gfc_default_double_kind; @@ -233,6 +234,10 @@ gfc_handle_option (size_t scode, const char *arg, int value) gfc_option.flag_dollar_ok = value; break; + case OPT_fbackslash: + gfc_option.flag_backslash = value; + break; + case OPT_fdump_parse_tree: gfc_option.verbose = value; break; diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index e1acfbf..984adcf 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -637,7 +637,7 @@ next_string_char (char delimiter) if (c == '\n') return -2; - if (c == '\\') + if (gfc_option.flag_backslash && c == '\\') { old_locus = gfc_current_locus; |