Home | History | Annotate | Download | only in fortran

Lines Matching defs:udr

4468 mio_omp_udr_expr (gfc_omp_udr *udr, gfc_symbol **sym1, gfc_symbol **sym2,
4512       sym->ts = udr->ts;
4518       sym->ts = udr->ts;
5093       gfc_omp_udr *udr = gfc_omp_udr_find (st, &ts);
5094       if (udr)
5098 	  if (strcmp (p->u.rsym.module, udr->omp_out->module))
5105 			 udr->omp_out->module, &udr->where);
5110       udr = gfc_get_omp_udr ();
5111       udr->name = name;
5112       udr->rop = rop;
5113       udr->ts = ts;
5114       udr->where = gfc_current_locus;
5115       udr->combiner_ns = gfc_get_namespace (gfc_current_ns, 1);
5116       udr->combiner_ns->proc_name = gfc_current_ns->proc_name;
5117       mio_omp_udr_expr (udr, &udr->omp_out, &udr->omp_in, udr->combiner_ns,
5121 	  udr->initializer_ns = gfc_get_namespace (gfc_current_ns, 1);
5122 	  udr->initializer_ns->proc_name = gfc_current_ns->proc_name;
5123 	  mio_omp_udr_expr (udr, &udr->omp_priv, &udr->omp_orig,
5124 			    udr->initializer_ns, true);
5128 	  udr->next = st->n.omp_udr;
5129 	  st->n.omp_udr = udr;
5134 	  st->n.omp_udr = udr;
6035 write_omp_udr (gfc_omp_udr *udr)
6037   switch (udr->rop)
6041       if (udr->name[0] != '.')
6046 	  size_t len = strlen (udr->name + 1);
6048 	  memcpy (name, udr->name, len - 1);
6052 	     the UDR.  */
6068       /* If corresponding operator is private, don't write the UDR.  */
6069       if (!check_access (gfc_current_ns->operator_access[udr->rop],
6076   if (udr->ts.type == BT_DERIVED || udr->ts.type == BT_CLASS)
6078       /* If derived type is private, don't write the UDR.  */
6079       if (!gfc_check_symbol_access (udr->ts.u.derived))
6084   mio_pool_string (&udr->name);
6085   mio_typespec (&udr->ts);
6086   mio_omp_udr_expr (udr, &udr->omp_out, &udr->omp_in, udr->combiner_ns, false);
6087   if (udr->initializer_ns)
6088     mio_omp_udr_expr (udr, &udr->omp_priv, &udr->omp_orig,
6089 		      udr->initializer_ns, true);
6101   gfc_omp_udr *udr;
6102   for (udr = st->n.omp_udr; udr; udr = udr->next)
6103     write_omp_udr (udr);