diff options
| author | Brooks Moses <brooks.moses@codesourcery.com> | 2006-11-09 06:41:55 +0000 |
|---|---|---|
| committer | Brooks Moses <brooks@gcc.gnu.org> | 2006-11-08 22:41:55 -0800 |
| commit | 350ff03fa9c59261d4cc901454e367a6c77cb1c1 (patch) | |
| tree | 09c37cb579e2009285de81c180e341479f3c6295 /gcc | |
| parent | 474e88dd75cac2080f5ed73d92a1a0a52c8a04ea (diff) | |
| download | gcc-350ff03fa9c59261d4cc901454e367a6c77cb1c1.zip gcc-350ff03fa9c59261d4cc901454e367a6c77cb1c1.tar.gz gcc-350ff03fa9c59261d4cc901454e367a6c77cb1c1.tar.bz2 | |
lang.opt: Remove non-working -qkind= option.
* lang.opt: Remove non-working -qkind= option.
* gfortran.h (gfc_option_t): Remove q_kind member.
* options.c (gfc_init_options): Remove q_kind initialization.
(gfc_handle_option): Remove -qkind= option handling.
* primary.c: (match_real_constant): Remove 'Q' exponent.
From-SVN: r118614
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/fortran/gfortran.h | 2 | ||||
| -rw-r--r-- | gcc/fortran/lang.opt | 4 | ||||
| -rw-r--r-- | gcc/fortran/options.c | 8 | ||||
| -rw-r--r-- | gcc/fortran/primary.c | 10 |
5 files changed, 8 insertions, 24 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 42c07fe..44224a2 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,11 @@ +2006-11-08 Brooks Moses <brooks.moses@codesourcery.com> + + * lang.opt: Remove non-working -qkind= option. + * gfortran.h (gfc_option_t): Remove q_kind member. + * options.c (gfc_init_options): Remove q_kind initialization. + (gfc_handle_option): Remove -qkind= option handling. + * primary.c: (match_real_constant): Remove 'Q' exponent. + 2006-11-08 Tobias Burnus <burnus@net-b.de> * gfortran.texi: Add volatile and internal-file diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index 970bda3c..76f0d9f 100644 --- a/gcc/fortran/gfortran.h +++ b/gcc/fortran/gfortran.h @@ -1654,8 +1654,6 @@ typedef struct int flag_d_lines; int flag_openmp; - int q_kind; - int fpe; int warn_std; diff --git a/gcc/fortran/lang.opt b/gcc/fortran/lang.opt index cbef46a..1a19da4 100644 --- a/gcc/fortran/lang.opt +++ b/gcc/fortran/lang.opt @@ -201,10 +201,6 @@ fpreprocessed Fortran Treat the input file as preprocessed -qkind= -Fortran RejectNegative Joined UInteger --qkind=<n> Set the kind for a real with the 'q' exponent to 'n' - ffpe-trap= Fortran RejectNegative JoinedOrMissing -ffpe-trap=[..] Stop on following floating point exceptions diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index f821d3e..d5920e4 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -86,8 +86,6 @@ gfc_init_options (unsigned int argc ATTRIBUTE_UNUSED, gfc_option.flag_d_lines = -1; gfc_option.flag_openmp = 0; - gfc_option.q_kind = gfc_default_double_kind; - gfc_option.fpe = 0; /* Argument pointers cannot point to anything @@ -549,12 +547,6 @@ gfc_handle_option (size_t scode, const char *arg, int value) gfc_option.max_identifier_length = value; break; - case OPT_qkind_: - if (gfc_validate_kind (BT_REAL, value, true) < 0) - gfc_fatal_error ("Argument to -fqkind isn't a valid real kind"); - gfc_option.q_kind = value; - break; - case OPT_fdefault_integer_8: gfc_option.flag_default_integer = value; break; diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index 9982b61..1b918b3 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -580,16 +580,6 @@ done: kind = gfc_default_double_kind; break; - case 'q': - if (kind != -2) - { - gfc_error - ("Real number at %C has a 'q' exponent and an explicit kind"); - goto cleanup; - } - kind = gfc_option.q_kind; - break; - default: if (kind == -2) kind = gfc_default_real_kind; |