[multiple changes]

2019-04-03  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/68567
	* expr.c (gfc_reduce_init_expr): Add extra check to avoid
	dereferencing a null pointer.

2019-04-03  Dominique d'Humieres  <dominiq@gcc.gnu.org>

	PR fortran/68567
	* gfortran.dg/parameter_array_error_1.f90: New test.

From-SVN: r270137

gcc/fortran/ChangeLog

+2019-04-03  Steven G. Kargl  <kargl@gcc.gnu.org>
+
+	PR fortran/68567
+	* expr.c (gfc_reduce_init_expr): Add extra check to avoid
+	dereferencing a null pointer.
+
 2019-04-03  Dominique d'Humieres  <dominiq@gcc.gnu.org>
 
 	PR fortran/89375

gcc/fortran/expr.c

@@ -3003,7 +3003,7 @@ gfc_reduce_init_expr (gfc_expr *expr)
     t = gfc_check_init_expr (expr);
   gfc_init_expr_flag = false;
 
-  if (!t)
+  if (!t || !expr)
     return false;
 
   if (expr->expr_type == EXPR_ARRAY)

gcc/testsuite/ChangeLog

+2019-04-03  Dominique d'Humieres  <dominiq@gcc.gnu.org>
+
+	PR fortran/68567
+	* gfortran.dg/parameter_array_error_1.f90: New test.
+
 2019-04-03  qing zhao  <qing.zhao@oracle.com>
 
 	PR tree-optimization/89730

gcc/testsuite/gfortran.dg/parameter_array_error_1.f90

+! { dg-do compile }
+! PR68567
+! Contributed by Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de>
+!
+program p
+   integer, parameter :: a(:) = [2, 1] ! { dg-error "cannot be automatic or of deferred shape" }
+end