gcc/fortran/intrinsic.c

294       int	Fortran standard version
317 	 int standard, gfc_check_f check, gfc_simplify_f simplify,
349       next_sym->standard = standard;
411 	   int kind, int standard,
424   add_sym (name, id, cl, actual_ok, type, kind, standard, cf, sf, rf,
433 add_sym_0s (const char *name, gfc_isym_id id, int standard,
444   add_sym (name, id, CLASS_IMPURE, ACTUAL_NO, BT_UNKNOWN, 0, standard, cf, sf,
454 	   int kind, int standard,
468   add_sym (name, id, cl, actual_ok, type, kind, standard, cf, sf, rf,
479 		  int actual_ok, bt type, int kind, int standard,
494   add_sym (name, id, cl, actual_ok, type, kind, standard, cf, sf, rf,
505 	    int standard, bool (*check) (gfc_expr *),
518   add_sym (name, id, cl, ACTUAL_NO, type, kind, standard, cf, sf, rf,
529 	    int kind, int standard,
544   add_sym (name, id, cl, actual_ok, type, kind, standard, cf, sf, rf,
556 	   int kind, int standard,
571   add_sym (name, id, cl, actual_ok, type, kind, standard, cf, sf, rf,
583 		  int actual_ok, bt type, int kind, int standard,
599   add_sym (name, id, cl, actual_ok, type, kind, standard, cf, sf, rf,
611 	    int kind, int standard,
627   add_sym (name, id, cl, ACTUAL_NO, type, kind, standard, cf, sf, rf,
639 	   int kind, int standard,
655   add_sym (name, id, cl, actual_ok, type, kind, standard, cf, sf, rf,
668 	     int kind, int standard,
684   add_sym (name, id, cl, actual_ok, type, kind, standard, cf, sf, rf,
697 	      int kind, int standard,
713   add_sym (name, id, cl, actual_ok, type, kind, standard, cf, sf, rf,
726 	    int kind, int standard,
743   add_sym (name, id, cl, ACTUAL_NO, type, kind, standard, cf, sf, rf,
756 	   int kind, int standard,
775   add_sym (name, id, cl, actual_ok, type, kind, standard, cf, sf, rf,
789 	    int standard,
808   add_sym (name, id, cl, ACTUAL_NO, type, kind, standard, cf, sf, rf,
822 	    int standard,
844   add_sym (name, id, cl, ACTUAL_NO, type, kind, standard, cf, sf, rf,
1022    the selected standard, this returns FALSE and sets the symbol's external
1049   /* See if this intrinsic is allowed in the current standard.  */
1055 			 "included in the selected standard but %s and %qs will"
1080 make_generic (const char *name, gfc_isym_id id, int standard ATTRIBUTE_UNUSED)
1114    a different standard if necessary. Note that we use argument
1119 make_alias (const char *name, int standard)
1134       next_sym->standard = standard;
1192   /* Argument names as in the standard (to be used as argument keywords).  */
3016   /* Argument names as in the standard (to be used as argument keywords).  */
3506 add_conv (bt from_type, int from_kind, bt to_type, int to_kind, int standard)
3530   sym->standard = standard;
3681 	char_conversions[n].standard = GFC_STD_F2003;
4259 /* Check whether an intrinsic belongs to whatever standard the user
4262    textual representation of the symbols standard status (like
4277   /* Find the symbol's standard message for later usage.  */
4278   switch (isym->standard)
4317       gfc_internal_error ("Invalid standard code on intrinsic %qs (%d)",
4318 			  isym->name, isym->standard);
4321   /* If warning about the standard, warn and succeed.  */
4322   if (gfc_option.warn_std & isym->standard)
4325       if (!silent && isym->standard != GFC_STD_GNU)
4332   /* If allowing the symbol's standard, succeed, too.  */
4333   if (gfc_option.allow_std & isym->standard)
4469      (4)   A reference to an elemental standard intrinsic function,
4625   if ((gfc_option.warn_std & sym->standard) != 0)
4826      selected standard, everything's fine.  */