gcc/fortran/simplify.c

486   gfc_constructor *array_ctor, *mask_ctor;
495   mask_ctor = NULL;
497     mask_ctor = gfc_constructor_first (mask->value.constructor);
505       if (mask_ctor)
507 	  m = mask_ctor->expr;
508 	  mask_ctor = gfc_constructor_next (mask_ctor);
538   gfc_constructor *array_ctor, *mask_ctor, *result_ctor;
559   mask_ctor = NULL;
561     mask_ctor = gfc_constructor_first (mask->value.constructor);
568       if (mask_ctor)
570 	  if (!mask_ctor->expr->value.logical)
573 	  mask_ctor = gfc_constructor_next (mask_ctor);
4792   gfc_constructor *tsource_ctor, *fsource_ctor, *mask_ctor;
4816   mask_ctor = gfc_constructor_first (mask->value.constructor);
4818   while (mask_ctor)
4820       if (mask_ctor->expr->value.logical)
4830       mask_ctor = gfc_constructor_next (mask_ctor);
5073   gfc_constructor *array_ctor, *mask_ctor;
5087     mask_ctor = gfc_constructor_first (mask->value.constructor);
5089     mask_ctor = NULL;
5098       if (mask_ctor)
5100 	  m = mask_ctor->expr;
5101 	  mask_ctor = gfc_constructor_next (mask_ctor);
5122   gfc_constructor *result_ctor, *array_ctor, *mask_ctor;
5150     mask_ctor = gfc_constructor_first (mask->value.constructor);
5152     mask_ctor = NULL;
5161 	  if (mask_ctor)
5163 	      m = mask_ctor->expr;
5165 	      mask_ctor = gfc_constructor_next (mask_ctor);
5242   gfc_constructor *array_ctor, *mask_ctor, *result_ctor;
5263   mask_ctor = NULL;
5265     mask_ctor = gfc_constructor_first (mask->value.constructor);
5272       if (mask_ctor)
5274 	  if (!mask_ctor->expr->value.logical)
5277 	  mask_ctor = gfc_constructor_next (mask_ctor);
5465   gfc_constructor *array_ctor, *mask_ctor;
5478     mask_ctor = gfc_constructor_first (mask->value.constructor);
5480     mask_ctor = NULL;
5489       if (mask_ctor)
5491 	  m = mask_ctor->expr;
5492 	  mask_ctor = gfc_constructor_next (mask_ctor);
5518   gfc_constructor *result_ctor, *array_ctor, *mask_ctor;
5546     mask_ctor = gfc_constructor_first (mask->value.constructor);
5548     mask_ctor = NULL;
5557 	  if (mask_ctor)
5559 	      m = mask_ctor->expr;
5561 	      mask_ctor = gfc_constructor_next (mask_ctor);
5616   gfc_constructor *array_ctor, *mask_ctor, *result_ctor;
5637   mask_ctor = NULL;
5639     mask_ctor = gfc_constructor_first (mask->value.constructor);
5646       if (mask_ctor)
5648 	  if (!mask_ctor->expr->value.logical)
5651 	  mask_ctor = gfc_constructor_next (mask_ctor);
6262   gfc_constructor *array_ctor, *mask_ctor, *vector_ctor;
6297       mask_ctor = gfc_constructor_first (mask->value.constructor);
6298       while (mask_ctor && array_ctor)
6300 	  if (mask_ctor->expr->value.logical)
6309 	  mask_ctor = gfc_constructor_next (mask_ctor);
8283   gfc_constructor *vector_ctor, *mask_ctor, *field_ctor;
8302   mask_ctor = gfc_constructor_first (mask->value.constructor);
8308   while (mask_ctor)
8310       if (mask_ctor->expr->value.logical)
8330       mask_ctor = gfc_constructor_next (mask_ctor);