Home
last modified time | relevance | path

Searched refs:gfc_notify_std (Results 1 – 25 of 50) sorted by relevance

12

/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dio.c453 if (!gfc_notify_std (GFC_STD_F2003, "DP format " in format_lex()
460 if (!gfc_notify_std (GFC_STD_F2003, "DC format " in format_lex()
467 if (!gfc_notify_std (GFC_STD_F2003, "Fortran 2003: DT format " in format_lex()
701 if (!gfc_notify_std (GFC_STD_GNU, "X descriptor requires leading " in check_format()
730 if (!gfc_notify_std (GFC_STD_GNU, "$ descriptor at %L", &format_locus)) in check_format()
862 gfc_notify_std (GFC_STD_GNU, "Missing positive width after " in check_format()
893 if (!gfc_notify_std (GFC_STD_F2008, "%<G0%> in format at %L", in check_format()
940 if (!gfc_notify_std (GFC_STD_F2018, in check_format()
1008 if (!gfc_notify_std (GFC_STD_F2018, in check_format()
1231 if (!gfc_notify_std (GFC_STD_GNU, "Missing comma at %L", &format_locus)) in check_format()
[all …]
H A Dcheck.c560 return gfc_notify_std (GFC_STD_F2003, "Fortran 2003: Character for " in int_or_real_or_char_check_f2003()
1403 if (!gfc_notify_std (GFC_STD_GNU, "Different type kinds at %L", in gfc_check_a_p()
1588 if (!gfc_notify_std (GFC_STD_F2018, "STAT= argument to %s at %L", in gfc_check_atomic()
1801 if (!gfc_notify_std (GFC_STD_F2018, "STAT= argument to %s at %L", in gfc_check_event_query()
1865 if (i < 0 && !gfc_notify_std (GFC_STD_GNU, "Negative argument " in gfc_check_besn()
2465 if (kind && !gfc_notify_std (GFC_STD_F2003, "%qs intrinsic " in gfc_check_count()
2907 && !gfc_notify_std (GFC_STD_GNU, "non-default INTEGER " in gfc_check_float()
2968 && !gfc_notify_std (GFC_STD_F2008, "COMPLEX argument %qs " in gfc_check_fn_rc2008()
3095 if (kind && !gfc_notify_std (GFC_STD_F2003, "%qs intrinsic " in gfc_check_ichar_iachar()
3178 if (kind && !gfc_notify_std (GFC_STD_F2003, "%qs intrinsic " in gfc_check_index()
[all …]
H A Dmatch.c956 if (!gfc_notify_std (GFC_STD_LEGACY, ".XOR. operator at %C")) in gfc_match_intrinsic_op()
1468 if (!gfc_notify_std (GFC_STD_F95_OBS | GFC_STD_F2018_DEL, in match_arithmetic_if()
1559 if (!gfc_notify_std (GFC_STD_F95_OBS | GFC_STD_F2018_DEL, in gfc_match_if()
1866 if (!gfc_notify_std (GFC_STD_F2008, "CRITICAL statement at %C")) in gfc_match_critical()
2664 if (!gfc_notify_std (GFC_STD_F2008, "DO CONCURRENT construct at %C")) in gfc_match_do()
2863 if (!gfc_notify_std (GFC_STD_F2008, "EXIT statement with no" in match_exit_cycle()
3090 if (!gfc_notify_std (GFC_STD_F2018, "%s statement at %C in PURE " in gfc_match_stopcode()
3211 if (!gfc_notify_std (GFC_STD_F95_DEL, "PAUSE statement at %C")) in gfc_match_pause()
3232 if (!gfc_notify_std (GFC_STD_F2008, "ERROR STOP statement at %C")) in gfc_match_error_stop()
3418 if (!gfc_notify_std (GFC_STD_F2018, "EVENT POST statement at %C")) in gfc_match_event_post()
[all …]
H A Ddecl.c314 && !gfc_notify_std (GFC_STD_GNU, "initialization of " in var_element()
1067 if (!gfc_notify_std (GFC_STD_F2003, "deferred type parameter at %C")) in char_len_param_value()
1184 && !gfc_notify_std (GFC_STD_F95_OBS, "Old-style character length at %C")) in match_char_length()
1578 && !gfc_notify_std (GFC_STD_F2018, "Variable %qs at %L with " in gfc_verify_c_interop_param()
1586 && !gfc_notify_std (GFC_STD_F2018, "Variable %qs at %L with " in gfc_verify_c_interop_param()
1602 && !gfc_notify_std (GFC_STD_F2018, "Variable %qs " in gfc_verify_c_interop_param()
1613 && !gfc_notify_std (GFC_STD_F2018, "Assumed-shape array %qs " in gfc_verify_c_interop_param()
2202 && !gfc_notify_std(GFC_STD_F2008, "Component at %C " in build_struct()
2453 if (!gfc_notify_std (GFC_STD_F2008, "non-NULL pointer " in match_pointer_init()
2602 && !gfc_notify_std (GFC_STD_F2008, "Implied-shape array at %L", in variable_decl()
[all …]
H A Dprimary.c316 if (!gfc_notify_std (GFC_STD_LEGACY, "Hollerith constant at %C")) in match_hollerith_constant()
498 && (!gfc_notify_std(GFC_STD_F2003, "BOZ used outside a DATA " in match_boz_constant()
589 if (!gfc_notify_std (GFC_STD_GNU, "exponent-letter 'q' in " in match_real_constant()
1378 if (!gfc_notify_std (GFC_STD_F2003, "PARAMETER symbol in " in match_sym_complex_part()
1836 if (!gfc_notify_std (GFC_STD_GNU, "argument list function at %C")) in match_arg_list_function()
1914 if (!gfc_notify_std (GFC_STD_F95_OBS, "Alternate-return argument " in gfc_match_actual_arglist()
2309 if (!gfc_notify_std (GFC_STD_F2008, in gfc_match_varspec()
2315 if (!gfc_notify_std (GFC_STD_F2003, in gfc_match_varspec()
2321 if (!gfc_notify_std (GFC_STD_F2003, "LEN part_ref at %C")) in gfc_match_varspec()
2452 if (!gfc_notify_std (GFC_STD_F2008, "RE or IM part_ref at %C")) in gfc_match_varspec()
[all …]
H A Darray.c222 && !gfc_notify_std (GFC_STD_F2008, in gfc_match_array_ref()
571 if (!gfc_notify_std (GFC_STD_F2018, "Assumed-rank array at %C")) in gfc_match_array_spec()
679 && !gfc_notify_std (GFC_STD_F2008, "Array specification at %C " in gfc_match_array_spec()
691 if (!gfc_notify_std (GFC_STD_F2008, "Coarray declaration at %C")) in gfc_match_array_spec()
1229 if (!gfc_notify_std (GFC_STD_F2003, "[...] " in gfc_match_array_constructor()
1249 if (!gfc_notify_std (GFC_STD_F2003, "Array constructor " in gfc_match_array_constructor()
2072 if (!gfc_notify_std (GFC_STD_LEGACY, "AC-IMPLIED-DO initial " in resolve_array_list()
2079 if (!gfc_notify_std (GFC_STD_LEGACY, "AC-IMPLIED-DO final " in resolve_array_list()
2086 if (!gfc_notify_std (GFC_STD_LEGACY, "AC-IMPLIED-DO step " in resolve_array_list()
H A Dsymbol.c564 if (attr->proc_pointer && !gfc_notify_std (GFC_STD_F2003, in gfc_check_conflict()
915 return gfc_notify_std (standard, "%s attribute conflicts " in gfc_check_conflict()
921 return gfc_notify_std (standard, "%s attribute conflicts " in gfc_check_conflict()
1042 if (attr->automatic && !gfc_notify_std (GFC_STD_LEGACY, in gfc_add_automatic()
1268 if (!gfc_notify_std (GFC_STD_LEGACY, in gfc_add_protected()
1313 if (!gfc_notify_std (GFC_STD_LEGACY, in gfc_add_save()
1333 if (!gfc_notify_std (GFC_STD_LEGACY, in gfc_add_value()
1352 if (!gfc_notify_std (GFC_STD_LEGACY, in gfc_add_volatile()
1385 if (!gfc_notify_std (GFC_STD_LEGACY, in gfc_add_asynchronous()
1913 if (!gfc_notify_std (GFC_STD_F2003, "BIND(C) at %L", where)) in gfc_add_is_bind_c()
[all …]
H A Dparse.c2879 if (!gfc_notify_std (GFC_STD_F2003, "Type-bound procedure at %C")) in parse_derived_contains()
2887 if (!gfc_notify_std (GFC_STD_F2003, "GENERIC binding at %C")) in parse_derived_contains()
2895 if (!gfc_notify_std (GFC_STD_F2003, "FINAL procedure declaration" in parse_derived_contains()
2907 && (!gfc_notify_std(GFC_STD_F2008, "Derived type definition " in parse_derived_contains()
3363 gfc_notify_std (GFC_STD_F2003, "Derived type " in parse_derived()
3416 gfc_notify_std (GFC_STD_F2003, in parse_derived()
4617 gfc_notify_std (GFC_STD_F2008, "BLOCK construct at %C"); in parse_block_construct()
4651 gfc_notify_std (GFC_STD_F2003, "ASSOCIATE construct at %C"); in parse_associate()
5486 gfc_notify_std (GFC_STD_F95_OBS, "DATA statement at %C after the " in parse_executable()
5826 gfc_notify_std (GFC_STD_F2008, "CONTAINS statement without " in parse_contained()
H A Dresolve.c397 gfc_notify_std (GFC_STD_F2008, "Argument %qs" in gfc_resolve_formal_arglist()
410 gfc_notify_std (GFC_STD_F2008, "Argument %qs" in gfc_resolve_formal_arglist()
817 gfc_notify_std (GFC_STD_GNU, "Function %s at %L with " in resolve_entries()
948 gfc_notify_std (GFC_STD_F2018_OBS, "COMMON block at %L", in resolve_common_vars()
955 gfc_notify_std (GFC_STD_GNU, "Variable %qs at %L is in COMMON " in resolve_common_vars()
959 gfc_notify_std (GFC_STD_GNU, "Initialized variable %qs at %L is " in resolve_common_vars()
1103 gfc_notify_std (GFC_STD_F2003, "COMMON block %qs at %L " in resolve_common_blocks()
1108 gfc_notify_std (GFC_STD_F2003, "COMMON block %qs at %L " in resolve_common_blocks()
2021 if (!gfc_notify_std (GFC_STD_F2008, "Internal procedure %qs is" in resolve_actual_arglist()
4824 if (!gfc_notify_std (GFC_STD_LEGACY, "REAL array index at %L", in gfc_resolve_index_1()
[all …]
H A Ddata.c341 if (gfc_notify_std (GFC_STD_GNU, in gfc_assign_data_value()
567 if (gfc_notify_std (GFC_STD_GNU, "re-initialization of %qs at %L", in gfc_assign_data_value()
H A Dmodule.c539 if (!gfc_notify_std (GFC_STD_F2003, "module " in gfc_match_use()
574 !gfc_notify_std(GFC_STD_F2003, "\"USE :: module\" at %C")) in gfc_match_use()
644 && (!gfc_notify_std(GFC_STD_F2003, "Renaming " in gfc_match_use()
762 if (!gfc_notify_std (GFC_STD_F2008, "SUBMODULE declaration at %C")) in gfc_match_submodule()
6905 if (!gfc_notify_std (symbol[i].standard, "The symbol %qs, " in use_iso_fortran_env_module()
7089 && gfc_notify_std (GFC_STD_F2003, "ISO_FORTRAN_ENV " in gfc_use_module()
7101 && gfc_notify_std (GFC_STD_F2003, "ISO_C_BINDING module at %C")) in gfc_use_module()
7120 && gfc_notify_std (GFC_STD_F2003, "IEEE_FEATURES module at %C")) in gfc_use_module()
7125 && gfc_notify_std (GFC_STD_F2003, in gfc_use_module()
7131 && gfc_notify_std (GFC_STD_F2003, in gfc_use_module()
H A Dexpr.c1828 if (!gfc_notify_std (GFC_STD_F2003, "LEN part_ref at %C")) in find_inquiry_ref()
1846 if (!gfc_notify_std (GFC_STD_F2003, "KIND part_ref at %C")) in find_inquiry_ref()
1857 if (!gfc_notify_std (GFC_STD_F2008, "RE part_ref at %C")) in find_inquiry_ref()
1869 if (!gfc_notify_std (GFC_STD_F2008, "IM part_ref at %C")) in find_inquiry_ref()
2903 && !gfc_notify_std (GFC_STD_F2003, "Evaluation of nonstandard " in check_elemental()
3296 && !gfc_notify_std (GFC_STD_F2003, in external_spec_function()
3923 if (!gfc_notify_std (GFC_STD_F2003, "Bounds specification " in gfc_check_pointer_assign()
4083 !gfc_notify_std(GFC_STD_F2008, "Internal procedure %qs " in gfc_check_pointer_assign()
4309 if (!gfc_notify_std (GFC_STD_F2008, "Rank remapping target is not " in gfc_check_pointer_assign()
/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dio.cc453 if (!gfc_notify_std (GFC_STD_F2003, "DP format " in format_lex()
460 if (!gfc_notify_std (GFC_STD_F2003, "DC format " in format_lex()
467 if (!gfc_notify_std (GFC_STD_F2003, "Fortran 2003: DT format " in format_lex()
701 if (!gfc_notify_std (GFC_STD_GNU, "X descriptor requires leading " in check_format()
730 if (!gfc_notify_std (GFC_STD_GNU, "$ descriptor at %L", &format_locus)) in check_format()
862 gfc_notify_std (GFC_STD_GNU, "Missing positive width after " in check_format()
893 if (!gfc_notify_std (GFC_STD_F2008, "%<G0%> in format at %L", in check_format()
940 if (!gfc_notify_std (GFC_STD_F2018, in check_format()
1008 if (!gfc_notify_std (GFC_STD_F2018, in check_format()
1231 if (!gfc_notify_std (GFC_STD_GNU, "Missing comma at %L", &format_locus)) in check_format()
[all …]
H A Dmatch.cc930 if (!gfc_notify_std (GFC_STD_LEGACY, ".XOR. operator at %C")) in gfc_match_intrinsic_op()
1443 if (!gfc_notify_std (GFC_STD_F95_OBS | GFC_STD_F2018_DEL, in match_arithmetic_if()
1534 if (!gfc_notify_std (GFC_STD_F95_OBS | GFC_STD_F2018_DEL, in gfc_match_if()
1841 if (!gfc_notify_std (GFC_STD_F2008, "CRITICAL statement at %C")) in gfc_match_critical()
2639 if (!gfc_notify_std (GFC_STD_F2008, "DO CONCURRENT construct at %C")) in gfc_match_do()
2838 if (!gfc_notify_std (GFC_STD_F2008, "EXIT statement with no" in match_exit_cycle()
3103 if (!gfc_notify_std (GFC_STD_F2018, "QUIET= specifier for %s at %L", in gfc_match_stopcode()
3117 if (!gfc_notify_std (GFC_STD_F2018, "%s statement at %C in PURE " in gfc_match_stopcode()
3189 && !gfc_notify_std (GFC_STD_F2018, in gfc_match_stopcode()
3252 if (!gfc_notify_std (GFC_STD_F95_DEL, "PAUSE statement at %C")) in gfc_match_pause()
[all …]
H A Dcheck.cc560 return gfc_notify_std (GFC_STD_F2003, "Fortran 2003: Character for " in int_or_real_or_char_check_f2003()
1405 if (!gfc_notify_std (GFC_STD_GNU, "Different type kinds at %L", in gfc_check_a_p()
1592 if (!gfc_notify_std (GFC_STD_F2018, "STAT= argument to %s at %L", in gfc_check_atomic()
1805 if (!gfc_notify_std (GFC_STD_F2018, "STAT= argument to %s at %L", in gfc_check_event_query()
1869 if (i < 0 && !gfc_notify_std (GFC_STD_GNU, "Negative argument " in gfc_check_besn()
2469 if (kind && !gfc_notify_std (GFC_STD_F2003, "%qs intrinsic " in gfc_check_count()
2911 && !gfc_notify_std (GFC_STD_GNU, "non-default INTEGER " in gfc_check_float()
2972 && !gfc_notify_std (GFC_STD_F2008, "COMPLEX argument %qs " in gfc_check_fn_rc2008()
3099 if (kind && !gfc_notify_std (GFC_STD_F2003, "%qs intrinsic " in gfc_check_ichar_iachar()
3182 if (kind && !gfc_notify_std (GFC_STD_F2003, "%qs intrinsic " in gfc_check_index()
[all …]
H A Ddecl.cc314 && !gfc_notify_std (GFC_STD_GNU, "initialization of " in var_element()
1067 if (!gfc_notify_std (GFC_STD_F2003, "deferred type parameter at %C")) in char_len_param_value()
1184 && !gfc_notify_std (GFC_STD_F95_OBS, "Old-style character length at %C")) in match_char_length()
1601 else if (!gfc_notify_std (GFC_STD_F2018, in gfc_verify_c_interop_param()
1624 if (!gfc_notify_std (GFC_STD_F2018, in gfc_verify_c_interop_param()
1657 && !gfc_notify_std (GFC_STD_F2018, "Variable %qs at %L with " in gfc_verify_c_interop_param()
1665 && !gfc_notify_std (GFC_STD_F2018, "Variable %qs at %L with " in gfc_verify_c_interop_param()
1681 && !gfc_notify_std (GFC_STD_F2018, "Variable %qs " in gfc_verify_c_interop_param()
1692 && !gfc_notify_std (GFC_STD_F2018, "Assumed-shape array %qs " in gfc_verify_c_interop_param()
2292 && !gfc_notify_std(GFC_STD_F2008, "Component at %C " in build_struct()
[all …]
H A Dprimary.cc316 if (!gfc_notify_std (GFC_STD_LEGACY, "Hollerith constant at %C")) in match_hollerith_constant()
498 && (!gfc_notify_std(GFC_STD_F2003, "BOZ used outside a DATA " in match_boz_constant()
589 if (!gfc_notify_std (GFC_STD_GNU, "exponent-letter 'q' in " in match_real_constant()
1357 if (!gfc_notify_std (GFC_STD_F2003, "PARAMETER symbol in " in match_sym_complex_part()
1815 if (!gfc_notify_std (GFC_STD_GNU, "argument list function at %C")) in match_arg_list_function()
1893 if (!gfc_notify_std (GFC_STD_F95_OBS, "Alternate-return argument " in gfc_match_actual_arglist()
2297 if (!gfc_notify_std (GFC_STD_F2008, in gfc_match_varspec()
2303 if (!gfc_notify_std (GFC_STD_F2003, in gfc_match_varspec()
2309 if (!gfc_notify_std (GFC_STD_F2003, "LEN part_ref at %C")) in gfc_match_varspec()
2440 if (!gfc_notify_std (GFC_STD_F2008, "RE or IM part_ref at %C")) in gfc_match_varspec()
[all …]
H A Darray.cc229 && !gfc_notify_std (GFC_STD_F2008, in gfc_match_array_ref()
578 if (!gfc_notify_std (GFC_STD_F2018, "Assumed-rank array at %C")) in gfc_match_array_spec()
686 && !gfc_notify_std (GFC_STD_F2008, "Array specification at %C " in gfc_match_array_spec()
698 if (!gfc_notify_std (GFC_STD_F2008, "Coarray declaration at %C")) in gfc_match_array_spec()
1241 if (!gfc_notify_std (GFC_STD_F2003, "[...] " in gfc_match_array_constructor()
1261 if (!gfc_notify_std (GFC_STD_F2003, "Array constructor " in gfc_match_array_constructor()
2084 if (!gfc_notify_std (GFC_STD_LEGACY, "AC-IMPLIED-DO initial " in resolve_array_list()
2091 if (!gfc_notify_std (GFC_STD_LEGACY, "AC-IMPLIED-DO final " in resolve_array_list()
2098 if (!gfc_notify_std (GFC_STD_LEGACY, "AC-IMPLIED-DO step " in resolve_array_list()
H A Dsymbol.cc564 if (attr->proc_pointer && !gfc_notify_std (GFC_STD_F2003, in gfc_check_conflict()
916 return gfc_notify_std (standard, "%s attribute conflicts " in gfc_check_conflict()
922 return gfc_notify_std (standard, "%s attribute conflicts " in gfc_check_conflict()
1043 if (attr->automatic && !gfc_notify_std (GFC_STD_LEGACY, in gfc_add_automatic()
1275 if (!gfc_notify_std (GFC_STD_LEGACY, in gfc_add_protected()
1320 if (!gfc_notify_std (GFC_STD_LEGACY, in gfc_add_save()
1340 if (!gfc_notify_std (GFC_STD_LEGACY, in gfc_add_value()
1359 if (!gfc_notify_std (GFC_STD_LEGACY, in gfc_add_volatile()
1392 if (!gfc_notify_std (GFC_STD_LEGACY, in gfc_add_asynchronous()
1920 if (!gfc_notify_std (GFC_STD_F2003, "BIND(C) at %L", where)) in gfc_add_is_bind_c()
[all …]
H A Dparse.cc3129 if (!gfc_notify_std (GFC_STD_F2003, "Type-bound procedure at %C")) in parse_derived_contains()
3137 if (!gfc_notify_std (GFC_STD_F2003, "GENERIC binding at %C")) in parse_derived_contains()
3145 if (!gfc_notify_std (GFC_STD_F2003, "FINAL procedure declaration" in parse_derived_contains()
3157 && (!gfc_notify_std(GFC_STD_F2008, "Derived type definition " in parse_derived_contains()
3613 gfc_notify_std (GFC_STD_F2003, "Derived type " in parse_derived()
3666 gfc_notify_std (GFC_STD_F2003, in parse_derived()
4867 gfc_notify_std (GFC_STD_F2008, "BLOCK construct at %C"); in parse_block_construct()
4901 gfc_notify_std (GFC_STD_F2003, "ASSOCIATE construct at %C"); in parse_associate()
5609 gfc_notify_std (GFC_STD_F2008, "BLOCK construct at %C"); in parse_omp_structured_block()
5811 gfc_notify_std (GFC_STD_F95_OBS, "DATA statement at %C after the " in parse_executable()
[all …]
H A Dresolve.cc397 gfc_notify_std (GFC_STD_F2008, "Argument %qs" in gfc_resolve_formal_arglist()
410 gfc_notify_std (GFC_STD_F2008, "Argument %qs" in gfc_resolve_formal_arglist()
826 gfc_notify_std (GFC_STD_GNU, "Function %s at %L with " in resolve_entries()
972 gfc_notify_std (GFC_STD_F2018_OBS, "COMMON block at %L", in resolve_common_vars()
979 gfc_notify_std (GFC_STD_GNU, "Variable %qs at %L is in COMMON " in resolve_common_vars()
983 gfc_notify_std (GFC_STD_GNU, "Initialized variable %qs at %L is " in resolve_common_vars()
1127 gfc_notify_std (GFC_STD_F2003, "COMMON block %qs at %L " in resolve_common_blocks()
1132 gfc_notify_std (GFC_STD_F2003, "COMMON block %qs at %L " in resolve_common_blocks()
2062 if (!gfc_notify_std (GFC_STD_F2008, "Internal procedure %qs is" in resolve_actual_arglist()
4910 if (!gfc_notify_std (GFC_STD_LEGACY, "REAL array index at %L", in gfc_resolve_index_1()
[all …]
H A Ddata.cc361 if (gfc_notify_std (GFC_STD_GNU, in gfc_assign_data_value()
587 if (gfc_notify_std (GFC_STD_GNU, "re-initialization of %qs at %L", in gfc_assign_data_value()
H A Dmodule.cc544 if (!gfc_notify_std (GFC_STD_F2003, "module " in gfc_match_use()
579 !gfc_notify_std(GFC_STD_F2003, "\"USE :: module\" at %C")) in gfc_match_use()
649 && (!gfc_notify_std(GFC_STD_F2003, "Renaming " in gfc_match_use()
767 if (!gfc_notify_std (GFC_STD_F2008, "SUBMODULE declaration at %C")) in gfc_match_submodule()
7116 if (!gfc_notify_std (symbol[i].standard, "The symbol %qs, " in use_iso_fortran_env_module()
7300 && gfc_notify_std (GFC_STD_F2003, "ISO_FORTRAN_ENV " in gfc_use_module()
7312 && gfc_notify_std (GFC_STD_F2003, "ISO_C_BINDING module at %C")) in gfc_use_module()
7331 && gfc_notify_std (GFC_STD_F2003, "IEEE_FEATURES module at %C")) in gfc_use_module()
7336 && gfc_notify_std (GFC_STD_F2003, in gfc_use_module()
7342 && gfc_notify_std (GFC_STD_F2003, in gfc_use_module()
H A Dexpr.cc1844 if (!gfc_notify_std (GFC_STD_F2003, "LEN part_ref at %C")) in find_inquiry_ref()
1869 if (!gfc_notify_std (GFC_STD_F2003, "KIND part_ref at %C")) in find_inquiry_ref()
1880 if (!gfc_notify_std (GFC_STD_F2008, "RE part_ref at %C")) in find_inquiry_ref()
1892 if (!gfc_notify_std (GFC_STD_F2008, "IM part_ref at %C")) in find_inquiry_ref()
2929 && !gfc_notify_std (GFC_STD_F2003, "Evaluation of nonstandard " in check_elemental()
3328 && !gfc_notify_std (GFC_STD_F2003, in external_spec_function()
3955 if (!gfc_notify_std (GFC_STD_F2003, "Bounds specification " in gfc_check_pointer_assign()
4115 !gfc_notify_std(GFC_STD_F2008, "Internal procedure %qs " in gfc_check_pointer_assign()
4341 if (!gfc_notify_std (GFC_STD_F2008, "Rank remapping target is not " in gfc_check_pointer_assign()
H A DChangeLog-20041475 * primary.c (match_boz_constant): Call gfc_notify_std only if
2202 string literal to be optional in a format. Use gfc_notify_std to
2207 * io.c (check_format): Use gfc_notify_std to determine whether to
2303 * primary.c (match_boz_constant): Use gfc_notify_std() for
2800 * error.c (gfc_notify_std): New function.
2801 * gfortran.h (gfc_notify_std): Declare.
2805 (gfc_intrinsic_func_interface): Use gfc_notify_std.
2806 * check.c (check_rest): Use gfc_notify_std.

12