2007-12-22 Daniel Franke <franke.daniel@gmail.com>
PR fortran/34559
* simplify.c (gfc_simplify_repeat): Added safeguard for empty string
literals.
gcc/testsuite:
2007-12-22 Daniel Franke <franke.daniel@gmail.com>
PR fortran/34559
* gfortran.dg/repeat_6.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@131139
138bc75d-0d04-0410-961f-
82ee72b054a4
+2007-12-22 Daniel Franke <franke.daniel@gmail.com>
+
+ PR fortran/34559
+ * simplify.c (gfc_simplify_repeat): Added safeguard for empty
+ string literals.
+
2007-12-22 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/34549
* module.c (read_module): Check sym->module is there before
using it in a string comparison.
+>>>>>>> .r131138
2007-12-20 Tobias Burnus <burnus@net-b.de>
PR fortran/34482
if (e->expr_type != EXPR_CONSTANT)
return NULL;
- if (len || mpz_sgn (e->ts.cl->length->value.integer) != 0)
+ if (len ||
+ (e->ts.cl->length &&
+ mpz_sgn (e->ts.cl->length->value.integer)) != 0)
{
const char *res = gfc_extract_int (n, &ncop);
gcc_assert (res == NULL);
+2007-12-22 Daniel Franke <franke.daniel@gmail.com>
+
+ PR fortran/34559
+ * gfortran.dg/repeat_6.f90: New test.
+
2007-12-22 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/34549
--- /dev/null
+! { dg-do run }
+!
+! PR34559 -- ICE on empty string literals
+!
+! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
+!
+
+ character(len=200) :: string = "a" // repeat ("", 3) &
+ // repeat ("xxx", 0) &
+ // repeat ("string", 2)
+
+ if (string /= "astringstring") CALL abort()
+end