| /netbsd-src/external/gpl3/gcc/dist/gcc/fortran/ |
| H A D | check.cc | 75 gfc_error (msg2, loc); in gfc_invalid_boz()
87 gfc_error ("BOZ literal constant at %L cannot be an actual argument " in illegal_boz_arg()
103 gfc_error ("Arguments of %qs at %L and %L cannot both be BOZ " in boz_args_check()
123 gfc_error ("Invalid use of BOZ literal constant at %L", &a->where); in is_boz_constant()
371 gfc_error ("Failure in conversion of BOZ to REAL at %L", &x->where); in gfc_boz2real()
477 gfc_error ("%qs argument of %qs intrinsic at %L must be a scalar", in scalar_check()
493 gfc_error ("%qs argument of %qs intrinsic at %L must be %s", in type_check()
527 gfc_error ("%qs argument of %qs intrinsic at %L must have a numeric type", in numeric_check()
542 gfc_error ("%qs argument of %qs intrinsic at %L must be INTEGER " in int_or_real_check()
567 gfc_error ("%qs argument of %qs intrinsic at %L must be INTEGER " in int_or_real_or_char_check_f2003()
[all …]
|
| H A D | decl.cc | 293 gfc_error ("Inquiry parameter cannot appear in a " in var_element()
307 gfc_error ("Host associated variable %qs may not be in the DATA " in var_element()
448 gfc_error ("Symbol %qs must be a PARAMETER in DATA statement at %C", in match_data_constant()
474 gfc_error ("Invalid initializer %s in Data statement at %C", name); in match_data_constant()
587 gfc_error (G_("BOZ literal constant near %L cannot be assigned to " in match_old_style_init()
597 gfc_error ("Initialization at %C is not allowed in a PURE procedure"); in match_old_style_init()
644 gfc_error ("DATA statement at %C cannot appear within an INTERFACE"); in gfc_match_data()
668 gfc_error ("Invalid substring in data-implied-do at %L in DATA " in gfc_match_data()
691 gfc_error ("Allocatable component or deferred-shaped array " in gfc_match_data()
733 gfc_error ("BOZ literal constant at %L cannot appear in a " in gfc_match_data()
[all …]
|
| H A D | openmp.cc | 68 gfc_error ("Unexpected junk at %C"); in gfc_match_omp_eos_error()
349 gfc_error ("List item shall not be coindexed at %C"); in gfc_match_omp_variable_list()
384 gfc_error ("COMMON block /%s/ not found at %C", n); in gfc_match_omp_variable_list()
423 gfc_error ("Syntax error in OpenMP variable list at %C"); in gfc_match_omp_variable_list()
485 gfc_error ("COMMON block /%s/ not found at %C", n); in gfc_match_omp_to_link()
513 gfc_error ("Syntax error in OpenMP variable list at %C"); in gfc_match_omp_to_link()
540 gfc_error ("Syntax error in OpenMP detach clause at %C"); in gfc_match_omp_detach()
612 gfc_error ("Syntax error in OpenMP DEPEND SINK list at %C"); in gfc_match_omp_depend_sink()
674 gfc_error ("Syntax error in OpenACC expression list at %C"); in match_oacc_expr_list()
805 gfc_error ("COMMON block /%s/ not found at %C", n); in gfc_match_oacc_clause_link()
[all …]
|
| H A D | match.cc | 195 gfc_error ("Expected structure component or operator name " in gfc_match_member_sep()
227 gfc_error ("%qs is neither a defined operator nor a " in gfc_match_member_sep()
298 gfc_error ("Missing %qs in statement at or before %L", in gfc_match_parens()
496 gfc_error ("Integer too large at %C"); in gfc_match_small_literal_int()
551 gfc_error ("Too many digits in statement label at %C"); in gfc_match_st_label()
557 gfc_error ("Statement label at %C is zero"); in gfc_match_st_label()
590 gfc_error ("Label name %qs at %C is ambiguous", name); in gfc_match_label()
596 gfc_error ("Duplicate construct label %qs at %C", name); in gfc_match_label()
630 gfc_error ("Invalid character in name at %C"); in gfc_match_name()
643 gfc_error ("Name at %C is too long"); in gfc_match_name()
[all …]
|
| H A D | resolve.cc | 123 gfc_error ("%qs at %L is of the ABSTRACT type %qs", in resolve_typespec_used()
126 gfc_error ("ABSTRACT type %qs used at %L", in resolve_typespec_used()
143 gfc_error ("Interface %qs at %L is declared " in check_proc_interface()
156 gfc_error ("Interface %qs at %L may not be generic", in check_proc_interface()
163 gfc_error ("Interface %qs at %L may not be a statement function", in check_proc_interface()
172 gfc_error ("Intrinsic procedure %qs not allowed in " in check_proc_interface()
178 gfc_error ("Interface %qs at %L must be explicit", ifc->name, where); in check_proc_interface()
200 gfc_error ("PROCEDURE %qs at %L may not be used as its own interface", in resolve_procedure_interface()
300 gfc_error ("Alternate return specifier in elemental subroutine " in gfc_resolve_formal_arglist()
304 gfc_error ("Alternate return specifier in function " in gfc_resolve_formal_arglist()
[all …]
|
| H A D | array.cc | 98 gfc_error ("Invalid BOZ literal constant used in subscript at %C"); in match_subscript()
103 gfc_error ("Expected array subscript at %C"); in match_subscript()
112 gfc_error ("Unexpected %<*%> in coarray subscript at %C"); in match_subscript()
130 gfc_error ("Invalid BOZ literal constant used in subscript at %C"); in match_subscript()
139 gfc_error ("Missing lower bound in assumed size " in match_subscript()
149 gfc_error ("Strides not allowed in coarray subscript at %C"); in match_subscript()
158 gfc_error ("Invalid BOZ literal constant used in subscript at %C"); in match_subscript()
163 gfc_error ("Expected array subscript stride at %C"); in match_subscript()
223 gfc_error ("Invalid form of array reference at %C"); in gfc_match_array_ref()
233 gfc_error ("Array reference at %C cannot have more than %d dimensions", in gfc_match_array_ref()
[all …]
|
| H A D | interface.cc | 225 gfc_error ("Syntax error in generic specification at %C"); in gfc_match_generic_spec()
252 gfc_error ("Syntax error: Trailing garbage in INTERFACE statement " in gfc_match_interface()
272 gfc_error ("Dummy procedure %qs at %C cannot have a " in gfc_match_interface()
312 gfc_error ("Syntax error in ABSTRACT INTERFACE statement at %C"); in gfc_match_abstract_interface()
343 gfc_error ("Syntax error: Trailing garbage in END INTERFACE " in gfc_match_end_interface()
356 gfc_error ("Expected a nameless interface at %C"); in gfc_match_end_interface()
369 gfc_error ("Expected %<END INTERFACE ASSIGNMENT (=)%> at %C"); in gfc_match_end_interface()
400 gfc_error ("Expecting %<END INTERFACE OPERATOR (%s)%> " in gfc_match_end_interface()
403 gfc_error ("Expecting %<END INTERFACE OPERATOR (%s)%> at %C, " in gfc_match_end_interface()
417 gfc_error ("Expecting %<END INTERFACE OPERATOR (.%s.)%> at %C", in gfc_match_end_interface()
[all …]
|
| H A D | io.cc | 850 gfc_error ("Extension: Zero width after L " in check_format()
931 gfc_error ("Positive width required in format " in check_format()
964 gfc_error ("Period required in format " in check_format()
1309 gfc_error (error, error_element, &format_locus); in check_format()
1311 gfc_error (error, &format_locus); in check_format()
1371 gfc_error ("Format statement in module main block at %C"); in gfc_match_format()
1380 gfc_error ("FORMAT statement at %C cannot appear within an INTERFACE"); in gfc_match_format()
1386 gfc_error ("Missing format label at %C"); in gfc_match_format()
1441 gfc_error ("Invalid value for %s specification at %C", tag->name); in match_etag()
1447 gfc_error ("Duplicate %s specification at %C", tag->name); in match_etag()
[all …]
|
| H A D | matchexp.cc | 72 gfc_error ("Bad character %qc in OPERATOR name at %C", name[i]); in gfc_match_defined_op_name()
80 gfc_error ("The name %qs cannot be used as a defined operator at %C", in gfc_match_defined_op_name()
173 gfc_error ("Expected a right parenthesis in expression at %C"); in match_primary()
189 gfc_error (expression_syntax); in match_primary()
281 gfc_error ("Expected exponent in expression at %C"); in match_mult_operand()
319 gfc_error ("Extension: Unary operator following " in match_ext_mult_operand()
428 gfc_error ("Extension: Unary operator following " in match_ext_add_operand()
475 gfc_error (expression_syntax); in match_level_2()
514 gfc_error (expression_syntax); in match_level_2()
564 gfc_error (expression_syntax); in match_level_3()
[all …]
|
| H A D | primary.cc | 103 gfc_error ("Missing kind-parameter at %C"); in get_kind()
279 gfc_error ("Integer kind %d at %C not available", kind); in match_integer_constant()
288 gfc_error ("Integer too big for its kind at %C. This check can be " in match_integer_constant()
323 gfc_error ("Invalid Hollerith constant: %L must contain at least " in match_hollerith_constant()
329 gfc_error ("Invalid Hollerith constant: Integer kind at %L " in match_hollerith_constant()
349 gfc_error ("Invalid Hollerith constant at %L contains a " in match_hollerith_constant()
444 gfc_error ("Empty set of digits in BOZ constant at %C"); in match_boz_constant()
450 gfc_error ("Illegal character in BOZ constant at %C"); in match_boz_constant()
615 gfc_error ("Missing exponent in real number at %C"); in match_real_constant()
693 gfc_error ("Real number at %C has a %<d%> exponent and an explicit " in match_real_constant()
[all …]
|
| H A D | expr.cc | 665 gfc_error ("Constant expression required at %C"); in gfc_extract_int()
674 gfc_error ("Integer expression required at %C"); in gfc_extract_int()
684 gfc_error ("Integer value too large in expression at %C"); in gfc_extract_int()
718 gfc_error ("Constant expression required at %C"); in gfc_extract_hwi()
727 gfc_error ("Integer expression required at %C"); in gfc_extract_hwi()
740 gfc_error ("Integer value too large in expression at %C"); in gfc_extract_hwi()
1405 gfc_error ("Index in dimension %d is out of bounds " in find_array_element()
1603 gfc_error ("index in dimension %d is out of bounds " in find_array_section()
1654 gfc_error ("index in dimension %d is out of bounds " in find_array_section()
1730 gfc_error ("The number of elements in the array constructor " in find_array_section()
[all …]
|
| H A D | parse.cc | 1414 gfc_error ("Bad continuation line at %C"); in verify_token_fixed()
1521 gfc_error ("Non-numeric character in statement label at %C"); in next_fixed()
1548 gfc_error ("Bad continuation line at %C"); in next_fixed()
1859 gfc_error ("FORMAT statement at %L does not have a statement label", in check_statement_label()
2895 gfc_error ("Unexpected %s statement at %C", gfc_ascii_statement (st)); in unexpected_statement()
3050 gfc_error ("%s statement at %C cannot follow %s statement at %L", in verify_st_order()
3067 gfc_error ("Unexpected end of file in %qs", gfc_source_file); in unexpected_eof()
3102 gfc_error ("Derived-type %qs with SEQUENCE must not have a CONTAINS" in parse_derived_contains()
3105 gfc_error ("Derived-type %qs with BIND(C) must not have a CONTAINS" in parse_derived_contains()
3125 gfc_error ("Components in TYPE at %C must precede CONTAINS"); in parse_derived_contains()
[all …]
|
| H A D | data.cc | 65 gfc_error ("non-constant array in DATA statement %L", &ar->where); in get_array_index()
140 gfc_error ("failure to simplify substring reference in DATA " in create_character_initializer()
188 gfc_error ("Substring start index at %L is less than one", in create_character_initializer()
194 gfc_error ("Substring end index at %L exceeds the string length", in create_character_initializer()
249 gfc_error ("PARAMETER %qs shall not appear in a DATA statement at %L", in gfc_assign_data_value()
291 gfc_error ("%qs at %L already is initialized at %L", in gfc_assign_data_value()
315 gfc_error ("Data element below array lower bound at %L", in gfc_assign_data_value()
332 gfc_error ("Data element above array upper bound at %L", in gfc_assign_data_value()
421 gfc_error ("Data element above array upper bound at %L", in gfc_assign_data_value()
496 gfc_error (msg, &lvalue->where); in gfc_assign_data_value()
[all …]
|
| /netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| H A D | check.c | 75 gfc_error (msg2, loc); in gfc_invalid_boz()
87 gfc_error ("BOZ literal constant at %L cannot be an actual argument " in illegal_boz_arg()
103 gfc_error ("Arguments of %qs at %L and %L cannot both be BOZ " in boz_args_check()
123 gfc_error ("Invalid use of BOZ literal constant at %L", &a->where); in is_boz_constant()
371 gfc_error ("Failure in conversion of BOZ to REAL at %L", &x->where); in gfc_boz2real()
477 gfc_error ("%qs argument of %qs intrinsic at %L must be a scalar", in scalar_check()
493 gfc_error ("%qs argument of %qs intrinsic at %L must be %s", in type_check()
527 gfc_error ("%qs argument of %qs intrinsic at %L must have a numeric type", in numeric_check()
542 gfc_error ("%qs argument of %qs intrinsic at %L must be INTEGER " in int_or_real_check()
567 gfc_error ("%qs argument of %qs intrinsic at %L must be INTEGER " in int_or_real_or_char_check_f2003()
[all …]
|
| H A D | decl.c | 293 gfc_error ("Inquiry parameter cannot appear in a " in var_element()
307 gfc_error ("Host associated variable %qs may not be in the DATA " in var_element()
448 gfc_error ("Symbol %qs must be a PARAMETER in DATA statement at %C", in match_data_constant()
474 gfc_error ("Invalid initializer %s in Data statement at %C", name); in match_data_constant()
587 gfc_error ("BOZ literal constant near %L cannot be assigned to " in match_old_style_init()
597 gfc_error ("Initialization at %C is not allowed in a PURE procedure"); in match_old_style_init()
644 gfc_error ("DATA statement at %C cannot appear within an INTERFACE"); in gfc_match_data()
668 gfc_error ("Invalid substring in data-implied-do at %L in DATA " in gfc_match_data()
691 gfc_error ("Allocatable component or deferred-shaped array " in gfc_match_data()
733 gfc_error ("BOZ literal constant at %L cannot appear in a " in gfc_match_data()
[all …]
|
| H A D | match.c | 195 gfc_error ("Expected structure component or operator name " in gfc_match_member_sep()
227 gfc_error ("%qs is neither a defined operator nor a " in gfc_match_member_sep()
298 gfc_error ("Missing %qs in statement at or before %L", in gfc_match_parens()
496 gfc_error ("Integer too large at %C"); in gfc_match_small_literal_int()
577 gfc_error ("Too many digits in statement label at %C"); in gfc_match_st_label()
583 gfc_error ("Statement label at %C is zero"); in gfc_match_st_label()
616 gfc_error ("Label name %qs at %C is ambiguous", name); in gfc_match_label()
622 gfc_error ("Duplicate construct label %qs at %C", name); in gfc_match_label()
656 gfc_error ("Invalid character in name at %C"); in gfc_match_name()
669 gfc_error ("Name at %C is too long"); in gfc_match_name()
[all …]
|
| H A D | openmp.c | 66 gfc_error ("Unexpected junk at %C"); in gfc_match_omp_eos_error()
280 gfc_error ("List item shall not be coindexed at %C");
315 gfc_error ("COMMON block /%s/ not found at %C", n);
354 gfc_error ("Syntax error in OpenMP variable list at %C");
416 gfc_error ("COMMON block /%s/ not found at %C", n); in gfc_match_omp_to_link()
444 gfc_error ("Syntax error in OpenMP variable list at %C"); in gfc_match_omp_to_link()
518 gfc_error ("Syntax error in OpenMP DEPEND SINK list at %C"); in gfc_match_omp_depend_sink()
580 gfc_error ("Syntax error in OpenACC expression list at %C"); in match_oacc_expr_list()
711 gfc_error ("COMMON block /%s/ not found at %C", n); in gfc_match_oacc_clause_link()
739 gfc_error ("Unexpected junk after !$ACC DECLARE at %C"); in gfc_match_oacc_clause_link()
[all …]
|
| H A D | resolve.c | 123 gfc_error ("%qs at %L is of the ABSTRACT type %qs", in resolve_typespec_used()
126 gfc_error ("ABSTRACT type %qs used at %L", in resolve_typespec_used()
143 gfc_error ("Interface %qs at %L is declared " in check_proc_interface()
156 gfc_error ("Interface %qs at %L may not be generic", in check_proc_interface()
163 gfc_error ("Interface %qs at %L may not be a statement function", in check_proc_interface()
172 gfc_error ("Intrinsic procedure %qs not allowed in " in check_proc_interface()
178 gfc_error ("Interface %qs at %L must be explicit", ifc->name, where); in check_proc_interface()
200 gfc_error ("PROCEDURE %qs at %L may not be used as its own interface", in resolve_procedure_interface()
300 gfc_error ("Alternate return specifier in elemental subroutine " in gfc_resolve_formal_arglist()
304 gfc_error ("Alternate return specifier in function " in gfc_resolve_formal_arglist()
[all …]
|
| H A D | array.c | 98 gfc_error ("Invalid BOZ literal constant used in subscript at %C"); in match_subscript()
103 gfc_error ("Expected array subscript at %C"); in match_subscript()
112 gfc_error ("Unexpected %<*%> in coarray subscript at %C"); in match_subscript()
130 gfc_error ("Invalid BOZ literal constant used in subscript at %C"); in match_subscript()
142 gfc_error ("Strides not allowed in coarray subscript at %C"); in match_subscript()
151 gfc_error ("Invalid BOZ literal constant used in subscript at %C"); in match_subscript()
156 gfc_error ("Expected array subscript stride at %C"); in match_subscript()
216 gfc_error ("Invalid form of array reference at %C"); in gfc_match_array_ref()
226 gfc_error ("Array reference at %C cannot have more than %d dimensions", in gfc_match_array_ref()
247 gfc_error ("Unexpected coarray designator at %C"); in gfc_match_array_ref()
[all …]
|
| H A D | interface.c | 225 gfc_error ("Syntax error in generic specification at %C"); in gfc_match_generic_spec()
252 gfc_error ("Syntax error: Trailing garbage in INTERFACE statement " in gfc_match_interface()
272 gfc_error ("Dummy procedure %qs at %C cannot have a " in gfc_match_interface()
312 gfc_error ("Syntax error in ABSTRACT INTERFACE statement at %C"); in gfc_match_abstract_interface()
343 gfc_error ("Syntax error: Trailing garbage in END INTERFACE " in gfc_match_end_interface()
356 gfc_error ("Expected a nameless interface at %C"); in gfc_match_end_interface()
369 gfc_error ("Expected %<END INTERFACE ASSIGNMENT (=)%> at %C"); in gfc_match_end_interface()
400 gfc_error ("Expecting %<END INTERFACE OPERATOR (%s)%> " in gfc_match_end_interface()
403 gfc_error ("Expecting %<END INTERFACE OPERATOR (%s)%> at %C, " in gfc_match_end_interface()
417 gfc_error ("Expecting %<END INTERFACE OPERATOR (.%s.)%> at %C", in gfc_match_end_interface()
[all …]
|
| H A D | io.c | 850 gfc_error ("Extension: Zero width after L " in check_format()
931 gfc_error ("Positive width required in format " in check_format()
964 gfc_error ("Period required in format " in check_format()
1309 gfc_error (error, error_element, &format_locus); in check_format()
1311 gfc_error (error, &format_locus); in check_format()
1371 gfc_error ("Format statement in module main block at %C"); in gfc_match_format()
1380 gfc_error ("FORMAT statement at %C cannot appear within an INTERFACE"); in gfc_match_format()
1386 gfc_error ("Missing format label at %C"); in gfc_match_format()
1441 gfc_error ("Invalid value for %s specification at %C", tag->name); in match_etag()
1447 gfc_error ("Duplicate %s specification at %C", tag->name); in match_etag()
[all …]
|
| H A D | matchexp.c | 72 gfc_error ("Bad character %qc in OPERATOR name at %C", name[i]); in gfc_match_defined_op_name()
80 gfc_error ("The name %qs cannot be used as a defined operator at %C", in gfc_match_defined_op_name()
173 gfc_error ("Expected a right parenthesis in expression at %C"); in match_primary()
189 gfc_error (expression_syntax); in match_primary()
281 gfc_error ("Expected exponent in expression at %C"); in match_mult_operand()
319 gfc_error ("Extension: Unary operator following " in match_ext_mult_operand()
428 gfc_error ("Extension: Unary operator following " in match_ext_add_operand()
475 gfc_error (expression_syntax); in match_level_2()
514 gfc_error (expression_syntax); in match_level_2()
564 gfc_error (expression_syntax); in match_level_3()
[all …]
|
| H A D | primary.c | 103 gfc_error ("Missing kind-parameter at %C"); in get_kind()
279 gfc_error ("Integer kind %d at %C not available", kind); in match_integer_constant()
288 gfc_error ("Integer too big for its kind at %C. This check can be " in match_integer_constant()
323 gfc_error ("Invalid Hollerith constant: %L must contain at least " in match_hollerith_constant()
329 gfc_error ("Invalid Hollerith constant: Integer kind at %L " in match_hollerith_constant()
349 gfc_error ("Invalid Hollerith constant at %L contains a " in match_hollerith_constant()
444 gfc_error ("Empty set of digits in BOZ constant at %C"); in match_boz_constant()
450 gfc_error ("Illegal character in BOZ constant at %C"); in match_boz_constant()
615 gfc_error ("Missing exponent in real number at %C"); in match_real_constant()
674 gfc_error ("Real number at %C has a %<d%> exponent and an explicit " in match_real_constant()
[all …]
|
| H A D | expr.c | 657 gfc_error ("Constant expression required at %C"); in gfc_extract_int()
666 gfc_error ("Integer expression required at %C"); in gfc_extract_int()
676 gfc_error ("Integer value too large in expression at %C"); in gfc_extract_int()
710 gfc_error ("Constant expression required at %C"); in gfc_extract_hwi()
719 gfc_error ("Integer expression required at %C"); in gfc_extract_hwi()
732 gfc_error ("Integer value too large in expression at %C"); in gfc_extract_hwi()
1395 gfc_error ("Index in dimension %d is out of bounds " in find_array_element()
1593 gfc_error ("index in dimension %d is out of bounds " in find_array_section()
1644 gfc_error ("index in dimension %d is out of bounds " in find_array_section()
1720 gfc_error ("The number of elements in the array constructor " in find_array_section()
[all …]
|
| H A D | parse.c | 1296 gfc_error ("Bad continuation line at %C"); in verify_token_fixed()
1403 gfc_error ("Non-numeric character in statement label at %C"); in next_fixed()
1430 gfc_error ("Bad continuation line at %C"); in next_fixed()
1729 gfc_error ("FORMAT statement at %L does not have a statement label", in check_statement_label()
2645 gfc_error ("Unexpected %s statement at %C", gfc_ascii_statement (st)); in unexpected_statement()
2800 gfc_error ("%s statement at %C cannot follow %s statement at %L", in verify_st_order()
2817 gfc_error ("Unexpected end of file in %qs", gfc_source_file); in unexpected_eof()
2852 gfc_error ("Derived-type %qs with SEQUENCE must not have a CONTAINS" in parse_derived_contains()
2855 gfc_error ("Derived-type %qs with BIND(C) must not have a CONTAINS" in parse_derived_contains()
2875 gfc_error ("Components in TYPE at %C must precede CONTAINS"); in parse_derived_contains()
[all …]
|