re PR fortran/93162 (gcc/fortran/trans-openmp.c:2469:50: runtime error: load of…

re PR fortran/93162 (gcc/fortran/trans-openmp.c:2469:50: runtime error: load of value 145992800, which is not a valid value for type 'ar_type' since r279628)

	PR fortran/93162
	* trans-openmp.c (gfc_trans_omp_clauses): Check for REF_ARRAY type
	before testing u.ar.type == AR_FULL.

From-SVN: r279944

gcc/fortran/ChangeLog

+2020-01-07  Jakub Jelinek  <jakub@redhat.com>
+
+	PR fortran/93162
+	* trans-openmp.c (gfc_trans_omp_clauses): Check for REF_ARRAY type
+	before testing u.ar.type == AR_FULL.
+
 2020-01-04  Tobias Burnus  <tobias@codesourcery.com>
 
 	PR fortran/91640

gcc/fortran/trans-openmp.c

@@ -2495,7 +2495,9 @@ gfc_trans_omp_clauses (stmtblock_t *block, gfc_omp_clauses *clauses,
 	      tree decl = gfc_trans_omp_variable (n->sym, false);
 	      if (DECL_P (decl))
 		TREE_ADDRESSABLE (decl) = 1;
-	      if (n->expr == NULL || n->expr->ref->u.ar.type == AR_FULL)
+	      if (n->expr == NULL
+		  || (n->expr->ref->type == REF_ARRAY
+		      && n->expr->ref->u.ar.type == AR_FULL))
 		{
 		  tree present = gfc_omp_check_optional_argument (decl, true);
 		  if (n->sym->ts.type == BT_CLASS)