486   gfc_constructor *array_ctor, *mask_ctor;  in simplify_transformation_to_scalar()  local
494   array_ctor = gfc_constructor_first (array->value.constructor);  in simplify_transformation_to_scalar()
499   while (array_ctor)  in simplify_transformation_to_scalar()
501       a = array_ctor->expr;  in simplify_transformation_to_scalar()
502       array_ctor = gfc_constructor_next (array_ctor);  in simplify_transformation_to_scalar()
538   gfc_constructor *array_ctor, *mask_ctor, *result_ctor;  in simplify_transformation_to_array()  local
558   array_ctor = gfc_constructor_first (array->value.constructor);  in simplify_transformation_to_array()
565       arrayvec[i] = array_ctor->expr;  in simplify_transformation_to_array()
566       array_ctor = gfc_constructor_next (array_ctor);  in simplify_transformation_to_array()
2048   gfc_constructor *array_ctor, *shift_ctor;  in gfc_simplify_cshift()  local
2097   array_ctor = gfc_constructor_first (array->value.constructor);  in gfc_simplify_cshift()
2100       arrayvec[i] = array_ctor->expr;  in gfc_simplify_cshift()
2101       array_ctor = gfc_constructor_next (array_ctor);  in gfc_simplify_cshift()
2453   gfc_constructor *array_ctor, *shift_ctor, *bnd_ctor;  in gfc_simplify_eoshift()  local
2548   array_ctor = gfc_constructor_first (array->value.constructor);  in gfc_simplify_eoshift()
2551       arrayvec[i] = array_ctor->expr;  in gfc_simplify_eoshift()
2552       array_ctor = gfc_constructor_next (array_ctor);  in gfc_simplify_eoshift()
5073   gfc_constructor *array_ctor, *mask_ctor;  in simplify_minmaxloc_to_scalar()  local
5085   array_ctor = gfc_constructor_first (array->value.constructor);  in simplify_minmaxloc_to_scalar()
5092   while (array_ctor)  in simplify_minmaxloc_to_scalar()
5095       a = array_ctor->expr;  in simplify_minmaxloc_to_scalar()
5096       array_ctor = gfc_constructor_next (array_ctor);  in simplify_minmaxloc_to_scalar()
5122   gfc_constructor *result_ctor, *array_ctor, *mask_ctor;  in simplify_minmaxloc_nodim()  local
5148   array_ctor = gfc_constructor_first (array->value.constructor);  in simplify_minmaxloc_nodim()
5160 	  a = array_ctor->expr;  in simplify_minmaxloc_nodim()
5175 	  array_ctor = gfc_constructor_next (array_ctor);  in simplify_minmaxloc_nodim()
5242   gfc_constructor *array_ctor, *mask_ctor, *result_ctor;  in simplify_minmaxloc_to_array()  local
5262   array_ctor = gfc_constructor_first (array->value.constructor);  in simplify_minmaxloc_to_array()
5269       arrayvec[i] = array_ctor->expr;  in simplify_minmaxloc_to_array()
5270       array_ctor = gfc_constructor_next (array_ctor);  in simplify_minmaxloc_to_array()
5465   gfc_constructor *array_ctor, *mask_ctor;  in simplify_findloc_to_scalar()  local
5476   array_ctor = gfc_constructor_first (array->value.constructor);  in simplify_findloc_to_scalar()
5483   while (array_ctor)  in simplify_findloc_to_scalar()
5486       a = array_ctor->expr;  in simplify_findloc_to_scalar()
5487       array_ctor = gfc_constructor_next (array_ctor);  in simplify_findloc_to_scalar()
5518   gfc_constructor *result_ctor, *array_ctor, *mask_ctor;  in simplify_findloc_nodim()  local
5544   array_ctor = gfc_constructor_first (array->value.constructor);  in simplify_findloc_nodim()
5556 	  a = array_ctor->expr;  in simplify_findloc_nodim()
5573 	  array_ctor = gfc_constructor_next (array_ctor);  in simplify_findloc_nodim()
5616   gfc_constructor *array_ctor, *mask_ctor, *result_ctor;  in simplify_findloc_to_array()  local
5636   array_ctor = gfc_constructor_first (array->value.constructor);  in simplify_findloc_to_array()
5643       arrayvec[i] = array_ctor->expr;  in simplify_findloc_to_array()
5644       array_ctor = gfc_constructor_next (array_ctor);  in simplify_findloc_to_array()
6262   gfc_constructor *array_ctor, *mask_ctor, *vector_ctor;  in gfc_simplify_pack()  local
6274   array_ctor = gfc_constructor_first (array->value.constructor);  in gfc_simplify_pack()
6283       while (array_ctor)  in gfc_simplify_pack()
6286 				       gfc_copy_expr (array_ctor->expr),  in gfc_simplify_pack()
6289 	  array_ctor = gfc_constructor_next (array_ctor);  in gfc_simplify_pack()
6298       while (mask_ctor && array_ctor)  in gfc_simplify_pack()
6303 					   gfc_copy_expr (array_ctor->expr),  in gfc_simplify_pack()
6308 	  array_ctor = gfc_constructor_next (array_ctor);  in gfc_simplify_pack()