Home | History | Annotate | Download | only in fortran

Lines Matching defs:flavor

501       switch (attr->flavor)
509 a1 = gfc_code2string (flavors, attr->flavor);
732 a1 = gfc_code2string (flavors, attr->flavor);
735 && attr->flavor != FL_VARIABLE
736 && attr->flavor != FL_PROCEDURE
737 && attr->flavor != FL_UNKNOWN)
743 switch (attr->flavor)
1024 if (attr->flavor == FL_PROCEDURE && attr->if_source == IFSRC_IFBODY
1065 if (attr->flavor == FL_PROCEDURE && attr->if_source == IFSRC_IFBODY
1091 if (attr->flavor == FL_PROCEDURE && attr->if_source == IFSRC_IFBODY
1566 if (attr->flavor == FL_VARIABLE)
1682 if (attr->flavor != FL_PROCEDURE
1695 if (attr->flavor != FL_PROCEDURE
1716 if (attr->flavor != FL_PROCEDURE
1732 if (attr->flavor != FL_PROCEDURE
1776 if (attr->flavor == f && f == FL_VARIABLE)
1780 submodule results in the flavor being copied and would result in
1782 if (attr->flavor == f && f == FL_PROCEDURE
1786 if (attr->flavor != FL_UNKNOWN)
1793 gfc_code2string (flavors, attr->flavor), name,
1797 gfc_code2string (flavors, attr->flavor),
1803 attr->flavor = f;
1817 if (attr->flavor != FL_PROCEDURE
1909 if (is_proc_lang_bind_spec == 0 && attr->flavor == FL_PROCEDURE)
1991 sym_flavor flavor;
2030 flavor = sym->attr.flavor;
2032 if (flavor == FL_PROGRAM || flavor == FL_BLOCK_DATA || flavor == FL_MODULE
2033 || flavor == FL_LABEL
2034 || (flavor == FL_PROCEDURE && sym->attr.subroutine)
2035 || flavor == FL_DERIVED || flavor
2159 if (src->flavor != FL_UNKNOWN
2160 && !gfc_add_flavor (dest, src->flavor, NULL, where))
2179 is_proc_lang_bind_spec = (src->flavor == FL_PROCEDURE ? 1 : 0);
2371 if (s == NULL || !gfc_fl_struct (s->attr.flavor))
2499 if (sym->attr.flavor == FL_DERIVED)
2502 gcc_assert (gfc_fl_struct (sym->attr.flavor));
2508 if (sym->attr.flavor == FL_UNION)
2694 while (ns->proc_name && ns->proc_name->attr.flavor == FL_LABEL)
3711 if (gfc_fl_struct (p->attr.flavor))
4268 || sym->attr.flavor != FL_VARIABLE)
4598 tmp_sym->attr.flavor = FL_PARAMETER;
4719 formal_arg->sym->attr.flavor = FL_VARIABLE;
4827 if (tmp_sym->attr.flavor == FL_DERIVED
4891 tmp_sym->attr.flavor = FL_PARAMETER;
4928 tmp_sym->attr.flavor = FL_PARAMETER;
4990 dt_sym->attr.flavor = FL_DERIVED;
5244 if (!sym || gfc_fl_struct (sym->attr.flavor))
5249 if (gfc_fl_struct (intr->sym->attr.flavor))