gcc/f/global.c

523   ffeglobalArgInfo_ ai;
535   ai = &g->u.proc.arg_info[argno];
539   if ((ai->t != NULL)
549 	  if ((ai->as != FFEGLOBAL_argsummaryREF)
550 	      && (ai->as != FFEGLOBAL_argsummaryNONE)
551 	      && ((ai->as != FFEGLOBAL_argsummaryDESCR)	/* Choose better message. */
552 		  || (ai->bt != FFEINFO_basictypeCHARACTER)
553 		  || (ai->bt == bt)))
561 	  if ((ai->as != FFEGLOBAL_argsummaryDESCR)
562 	      && (ai->as != FFEGLOBAL_argsummaryNONE)
563 	      && ((ai->as != FFEGLOBAL_argsummaryREF)	/* Choose better message. */
565 		  || (ai->bt == bt)))
573 	  if ((ai->as != FFEGLOBAL_argsummaryPROC)
574 	      && (ai->as != FFEGLOBAL_argsummarySUBR)
575 	      && (ai->as != FFEGLOBAL_argsummaryFUNC)
576 	      && (ai->as != FFEGLOBAL_argsummaryNONE))
584 	  if ((ai->as != FFEGLOBAL_argsummaryPROC)
585 	      && (ai->as != FFEGLOBAL_argsummarySUBR)
586 	      && (ai->as != FFEGLOBAL_argsummaryNONE))
594 	  if ((ai->as != FFEGLOBAL_argsummaryPROC)
595 	      && (ai->as != FFEGLOBAL_argsummaryFUNC)
596 	      && (ai->as != FFEGLOBAL_argsummaryNONE))
604 	  if ((ai->as != FFEGLOBAL_argsummaryALTRTN)
605 	      && (ai->as != FFEGLOBAL_argsummaryNONE))
620 	  switch (ai->as)
670 	  && (ai->bt != FFEINFO_basictypeHOLLERITH)
671 	  && (ai->bt != FFEINFO_basictypeTYPELESS)
672 	  && (ai->bt != FFEINFO_basictypeNONE))
676 	  if ((bt != ai->bt)
678 		  || (ai->bt != FFEINFO_basictypeCOMPLEX))
680 		  || (ai->bt != FFEINFO_basictypeREAL)))
687 	  if (!warn && (kt != ai->kt))
714 	  ffebad_here (1, ffelex_token_where_line (ai->t), ffelex_token_where_column (ai->t));
721   if (ai->t != NULL)
722     ffelex_token_kill (ai->t);
724       || (ai->t == NULL))
725     ai->as = as;	/* Otherwise leave SUBR/FUNC info intact. */
726   ai->t = ffelex_token_use (g->t);
728     ai->name = NULL;
731       ai->name = malloc_new_ks (malloc_pool_image (),
734       strcpy (ai->name, name);
736   ai->bt = bt;
737   ai->kt = kt;
738   ai->array = array;
802   ffeglobalArgInfo_ ai;
814   ai = &g->u.proc.arg_info[argno];
818   if (ai->t != NULL)
837 	  if (ai->as != FFEGLOBAL_argsummaryVAL)
845 	  if ((ai->as != FFEGLOBAL_argsummaryREF)
846 	      && (ai->as != FFEGLOBAL_argsummaryNONE)
847 	      && ((ai->as != FFEGLOBAL_argsummaryDESCR)	/* Choose better message. */
848 		  || (ai->bt != FFEINFO_basictypeCHARACTER)
849 		  || (ai->bt == bt)))
857 	  if ((ai->as != FFEGLOBAL_argsummaryDESCR)
858 	      && (ai->as != FFEGLOBAL_argsummaryNONE)
859 	      && ((ai->as != FFEGLOBAL_argsummaryREF)	/* Choose better message. */
861 		  || (ai->bt == bt)))
869 	  if ((ai->as != FFEGLOBAL_argsummaryPROC)
870 	      && (ai->as != FFEGLOBAL_argsummarySUBR)
871 	      && (ai->as != FFEGLOBAL_argsummaryFUNC)
872 	      && (ai->as != FFEGLOBAL_argsummaryNONE))
880 	  if ((ai->as != FFEGLOBAL_argsummaryPROC)
881 	      && (ai->as != FFEGLOBAL_argsummarySUBR)
882 	      && (ai->as != FFEGLOBAL_argsummaryNONE))
890 	  if ((ai->as != FFEGLOBAL_argsummaryPROC)
891 	      && (ai->as != FFEGLOBAL_argsummaryFUNC)
892 	      && (ai->as != FFEGLOBAL_argsummaryNONE))
900 	  if ((ai->as != FFEGLOBAL_argsummaryALTRTN)
901 	      && (ai->as != FFEGLOBAL_argsummaryNONE))
910 	  if ((ai->as != FFEGLOBAL_argsummaryPTR)
911 	      && (ai->as != FFEGLOBAL_argsummaryNONE))
927 	  switch (ai->as)
977 	  && (ai->bt != FFEINFO_basictypeHOLLERITH)
978 	  && (ai->bt != FFEINFO_basictypeNONE)
979 	  && (ai->bt != FFEINFO_basictypeTYPELESS))
983 	  if ((bt != ai->bt)
985 		  || (ai->bt != FFEINFO_basictypeCOMPLEX))
987 		  || (ai->bt != FFEINFO_basictypeREAL)))
990 		   && (ai->bt == FFEINFO_basictypeLOGICAL))
992 		   && (ai->bt == FFEINFO_basictypeINTEGER)))
1000 	  if (!fail && !warn && (kt != ai->kt))
1025 	  if (ai->name == NULL)
1029 	      if (strlen (ai->name) < 30)
1030 		sprintf (&num[0], "%d (named `%s')", argno + 1, ai->name);
1032 		sprintf (&num[0], "%d (named `%.*s...')", argno + 1, 30, ai->name);
1040 	  ffebad_here (1, ffelex_token_where_line (ai->t), ffelex_token_where_column (ai->t));
1051   if (ai->t != NULL)
1052     ffelex_token_kill (ai->t);
1054       || (ai->t == NULL))
1055     ai->as = as;
1056   ai->t = ffelex_token_use (g->t);
1057   ai->name = NULL;
1058   ai->bt = bt;
1059   ai->kt = kt;
1060   ai->array = array;