From: Brooks Moses <brooks.moses@codesourcery.com>
Date: Thu, 9 Nov 2006 06:41:55 +0000 (+0000)
Subject: lang.opt: Remove non-working -qkind= option.
X-Git-Tag: releases/gcc-4.3.0~8573
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=350ff03fa9c59261d4cc901454e367a6c77cb1c1;p=thirdparty%2Fgcc.git

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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 42c07fe8032b..44224a245537 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 970bda3c91f5..76f0d9f25b5f 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 cbef46a040d7..1a19da413171 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 f821d3e2695e..d5920e47f5fb 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 9982b614208e..1b918b3202fe 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;