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

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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 4940366..3f18b8e 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 3418afa..78bbac8 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: