module.c (mio_expr): Avoid -Wcast-qual warning.

	* module.c (mio_expr): Avoid -Wcast-qual warning.

From-SVN: r128854

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 494036620ba35810a7e6425ab2430b340604b4b3..3f18b8eb3a44830ae66582cfa05b5c5554741b4c 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2007-09-27  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+       * module.c (mio_expr): Avoid -Wcast-qual warning.
+
 2007-09-27  Tobias Schlüter  <tobi@gcc.gnu.org>
 
        * arith.c (reduce_binary_aa): Fix capitalization.

diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c
index 3418afa0c163cfa47a6241a04e0581d8b245c73c..78bbac83d0a6d588c93c6960e5bc1d4dd3430d8e 100644 (file)
--- a/gcc/fortran/module.c
+++ b/gcc/fortran/module.c
@@ -2819,7 +2819,7 @@ mio_expr (gfc_expr **ep)
 
     case EXPR_SUBSTRING:
       e->value.character.string
-       = (char *) mio_allocated_string (e->value.character.string);
+       = CONST_CAST (char *, mio_allocated_string (e->value.character.string));
       mio_ref_list (&e->ref);
       break;
 
@@ -2854,7 +2854,7 @@ mio_expr (gfc_expr **ep)
        case BT_CHARACTER:
          mio_integer (&e->value.character.length);
          e->value.character.string
-           = (char *) mio_allocated_string (e->value.character.string);
+           = CONST_CAST (char *, mio_allocated_string (e->value.character.string));
          break;
 
        default: