diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 494036620ba3..3f18b8eb3a44 100644
--- 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 3418afa0c163..78bbac83d0a6 100644
--- 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: