Home | History | Annotate | Download | only in fortran

Lines Matching defs:intent

61     minit ("UNKNOWN-INTENT", INTENT_UNKNOWN),
414     *target = "TARGET", *external = "EXTERNAL", *intent = "INTENT",
415     *intent_in = "INTENT(IN)", *intrinsic = "INTRINSIC",
416     *intent_out = "INTENT(OUT)", *intent_inout = "INTENT(INOUT)",
449   if (attr->pointer && attr->intent != INTENT_UNKNOWN)
452       a2 = intent;
482       if (attr->intent != INTENT_UNKNOWN)
483 	a1 = intent;
636   conf (cray_pointee, intent);
670       && (attr->intent == INTENT_OUT || attr->intent == INTENT_INOUT))
673       a2 = attr->intent == INTENT_OUT ? intent_out : intent_inout;
686   if (attr->volatile_ && attr->intent == INTENT_IN)
798       /* Conflicts with INTENT, SAVE and RESULT will be checked
865       if (attr->intent != INTENT_UNKNOWN)
867 	  a2 = intent;
1857 gfc_add_intent (symbol_attribute *attr, sym_intent intent, locus *where)
1863   if (attr->intent == INTENT_UNKNOWN)
1865       attr->intent = intent;
1872   gfc_error ("INTENT (%s) conflicts with INTENT(%s) at %L",
1873 	     gfc_intent_string (attr->intent),
1874 	     gfc_intent_string (intent), where);
2163   if (src->intent != INTENT_UNKNOWN
2164       && !gfc_add_intent (dest, src->intent, where))
4718       formal_arg->sym->attr.intent = curr_arg->intent;