This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.

Index Nav:	[Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav:	[Date Prev] [Date Next]	[Thread Prev] [Thread Next]
Other format:	[Raw text]

[patch, fortran] Fix ice-on-valid PR 48876

From: Thomas Koenig <tkoenig at netcologne dot de>
To: "fortran at gcc dot gnu dot org" <fortran at gcc dot gnu dot org>, gcc-patches <gcc-patches at gcc dot gnu dot org>
Date: Sat, 30 Jul 2011 13:49:42 +0200
Subject: [patch, fortran] Fix ice-on-valid PR 48876

Hello world,

the attached, rather self-explanatory patch fixes PR 48876.

OK for trunk?

Thomas

2011-07-30 Thomas Koenig <tkoenig@gcc.gnu.org>

        PR fortran/48876
        * expr.c (gfc_simplify_expr):  If end of a string is less
        than zero, set it to zero.

2011-07-30 Thomas Koenig <tkoenig@gcc.gnu.org>

        PR fortran/48876
        * gfortran.dg/string_5.f90:  New test.

Index: expr.c
===================================================================
--- expr.c	(Revision 176933)
+++ expr.c	(Arbeitskopie)
@@ -1839,6 +1839,9 @@ gfc_simplify_expr (gfc_expr *p, int type)
 	  if (p->ref && p->ref->u.ss.end)
 	    gfc_extract_int (p->ref->u.ss.end, &end);
 
+	  if (end < 0)
+	    end = 0;
+
 	  s = gfc_get_wide_string (end - start + 2);
 	  memcpy (s, p->value.character.string + start,
 		  (end - start) * sizeof (gfc_char_t));

Attachment: string_5.f90
Description: Text document

Follow-Ups:
- Re: [patch, fortran] Fix ice-on-valid PR 48876
  - From: Steve Kargl

Index Nav:	[Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav:	[Date Prev] [Date Next]	[Thread Prev] [Thread Next]