PR fortran/33609
* simplify.c (range_check): Return gfc_bad_expr if incoming expression
is NULL.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@129059
138bc75d-0d04-0410-961f-
82ee72b054a4
+2007-10-06 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR fortran/33609
+ * simplify.c (range_check): Return gfc_bad_expr if incoming expression
+ is NULL.
+
2007-10-06 Tobias Schlüter <tobi@gcc.gnu.org>
* simplify.c (gfc_simplify_size): Fix typo.
static gfc_expr *
range_check (gfc_expr *result, const char *name)
{
+ if (result == NULL)
+ return &gfc_bad_expr;
+
switch (gfc_range_check (result))
{
case ARITH_OK: