* 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.

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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 42c07fe..44224a2 100644 (file)
--- 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 970bda3..76f0d9f 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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;