5720   gfc_code *do_code, *c;  in resolve_omp_do()  local
5795   do_code = code->block->next;  in resolve_omp_do()
5806       if (do_code->op == EXEC_DO_WHILE)  in resolve_omp_do()
5809 		     "at %L", name, &do_code->loc);  in resolve_omp_do()
5812       if (do_code->op == EXEC_DO_CONCURRENT)  in resolve_omp_do()
5815 		     &do_code->loc);  in resolve_omp_do()
5818       gcc_assert (do_code->op == EXEC_DO);  in resolve_omp_do()
5819       if (do_code->ext.iterator->var->ts.type != BT_INTEGER)  in resolve_omp_do()
5821 		   name, &do_code->loc);  in resolve_omp_do()
5822       dovar = do_code->ext.iterator->var->symtree->n.sym;  in resolve_omp_do()
5825 		   "at %L", name, &do_code->loc);  in resolve_omp_do()
5839 			       name, &do_code->loc);  in resolve_omp_do()
5843 			       name, &do_code->loc);  in resolve_omp_do()
5847 			       name, &do_code->loc);  in resolve_omp_do()
5859 		  || gfc_find_sym_in_expr (ivar, do_code->ext.iterator->start)  in resolve_omp_do()
5860 		  || gfc_find_sym_in_expr (ivar, do_code->ext.iterator->end)  in resolve_omp_do()
5861 		  || gfc_find_sym_in_expr (ivar, do_code->ext.iterator->step))  in resolve_omp_do()
5864 			     "iteration space at %L", name, &do_code->loc);  in resolve_omp_do()
5872       for (c = do_code->next; c; c = c->next)  in resolve_omp_do()
5881       do_code = do_code->block;  in resolve_omp_do()
5882       if (do_code->op != EXEC_DO && do_code->op != EXEC_DO_WHILE)  in resolve_omp_do()
5888       do_code = do_code->next;  in resolve_omp_do()
5889       if (do_code == NULL  in resolve_omp_do()
5890 	  || (do_code->op != EXEC_DO && do_code->op != EXEC_DO_WHILE))  in resolve_omp_do()
6079 resolve_oacc_nested_loops (gfc_code *code, gfc_code* do_code, int collapse,  in resolve_oacc_nested_loops()  argument
6088       if (do_code->op == EXEC_DO_WHILE)  in resolve_oacc_nested_loops()
6091 		     "at %L", &do_code->loc);  in resolve_oacc_nested_loops()
6094       if (do_code->op == EXEC_DO_CONCURRENT)  in resolve_oacc_nested_loops()
6097 		     &do_code->loc);  in resolve_oacc_nested_loops()
6100       gcc_assert (do_code->op == EXEC_DO);  in resolve_oacc_nested_loops()
6101       if (do_code->ext.iterator->var->ts.type != BT_INTEGER)  in resolve_oacc_nested_loops()
6103 		   &do_code->loc);  in resolve_oacc_nested_loops()
6104       dovar = do_code->ext.iterator->var->symtree->n.sym;  in resolve_oacc_nested_loops()
6114 		  || gfc_find_sym_in_expr (ivar, do_code->ext.iterator->start)  in resolve_oacc_nested_loops()
6115 		  || gfc_find_sym_in_expr (ivar, do_code->ext.iterator->end)  in resolve_oacc_nested_loops()
6116 		  || gfc_find_sym_in_expr (ivar, do_code->ext.iterator->step))  in resolve_oacc_nested_loops()
6119 			     "iteration space at %L", clause, &do_code->loc);  in resolve_oacc_nested_loops()
6127       for (c = do_code->next; c; c = c->next)  in resolve_oacc_nested_loops()
6136       do_code = do_code->block;  in resolve_oacc_nested_loops()
6137       if (do_code->op != EXEC_DO && do_code->op != EXEC_DO_WHILE  in resolve_oacc_nested_loops()
6138 	  && do_code->op != EXEC_DO_CONCURRENT)  in resolve_oacc_nested_loops()
6144       do_code = do_code->next;  in resolve_oacc_nested_loops()
6145       if (do_code == NULL  in resolve_oacc_nested_loops()
6146 	  || (do_code->op != EXEC_DO && do_code->op != EXEC_DO_WHILE  in resolve_oacc_nested_loops()
6147 	      && do_code->op != EXEC_DO_CONCURRENT))  in resolve_oacc_nested_loops()
6233   gfc_code *do_code;  in resolve_oacc_loop()  local
6239   do_code = code->block->next;  in resolve_oacc_loop()
6256   resolve_oacc_nested_loops (code, do_code, collapse, "collapsed");  in resolve_oacc_loop()