re PR fortran/33609 (ICE on arithmetic overflow)

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.

From-SVN: r129059

gcc/fortran/ChangeLog

+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 Schlter  <tobi@gcc.gnu.org>
 
 	* simplify.c (gfc_simplify_size): Fix typo.

gcc/fortran/simplify.c

@@ -70,6 +70,9 @@ gfc_expr gfc_bad_expr;
 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: