From 3ba43c5f0c039df452c8f33071f36ce7dee4a70c Mon Sep 17 00:00:00 2001 From: "Kaveh R. Ghazi" Date: Fri, 28 Sep 2007 00:41:05 +0000 Subject: module.c (mio_expr): Avoid -Wcast-qual warning. * module.c (mio_expr): Avoid -Wcast-qual warning. From-SVN: r128854 --- gcc/fortran/module.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc/fortran/module.c') diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 3418afa..78bbac8 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: -- cgit v1.1