Cross Reference: /src/external/gpl3/gcc.old/dist/gcc/fortran/interface.cc

Lines Matching refs:subroutine
135    This subroutine doesn't return MATCH_NO.  */
834      to be a function or subroutine but the other is not.  Check TKR
836   if (s1->attr.function == 0 && s1->attr.subroutine == 0)
839   if (s2->attr.function == 0 && s2->attr.subroutine == 0)
844       || s1->attr.subroutine != s2->attr.subroutine)
937      INTRINSIC_ASSIGN which should map to a subroutine.  */
942       if (!sym->attr.subroutine)
945 		     "a SUBROUTINE", &sym->declared_at);
1122    by this test. This subroutine implements rule 1 of section F03:16.2.3.
1249      SUBROUTINE F1(A, B)
1251      END SUBROUTINE F1
1253      SUBROUTINE F2(B, A)
1255      END SUBROUTINE F1
1733   if (s1->attr.function && (s2->attr.subroutine
1742   if (s1->attr.subroutine && s2->attr.function)
1745 	snprintf (errmsg, err_len, "'%s' is not a subroutine", name2);
1749   if (s2->attr.subroutine && s1->attr.flavor == FL_VARIABLE)
1752 	snprintf (errmsg, err_len, "subroutine proc pointer '%s' passed "
1888       if (((!p->sym->attr.function && !p->sym->attr.subroutine)
1907 			 "subroutine; did you mean %qs?", p->sym->name,
1911 			 "subroutine", p->sym->name, interface_name,
1919 	  || (psave->sym->attr.subroutine && !p->sym->attr.subroutine))
2426       else if (formal->attr.subroutine && !act_sym->attr.subroutine)
3224 	    gfc_error_now ("Missing alternate return specifier in subroutine "
3243 			       "subroutine call at %L", where);
3737 	    gfc_error ("Missing alternate return spec in subroutine call "
4331       if (!sub_flag && intr->sym->attr.subroutine)
4538 /* This subroutine is called when an expression is being resolved.
4541    with the operator.  This subroutine builds an actual argument list
4688 /* Tries to replace an assignment code node with a subroutine call to the
4689    subroutine associated with the assignment operator. Return true if the node
5040   /* If the overridden binding is a SUBROUTINE, the overriding must also be a
5041      SUBROUTINE.  */
5042   if (old_target->attr.subroutine && !proc_target->attr.subroutine)
5044       gfc_error ("%qs at %L overrides a SUBROUTINE and must also be a"
5045 		 " SUBROUTINE", proc->name, &where);
5267   if (!dtio_sub->attr.subroutine)
5268     gfc_error ("DTIO procedure %qs at %L must be a subroutine",
OpenGrok
