diff options
Diffstat (limited to 'gcc/cobol/parse.y')
| -rw-r--r-- | gcc/cobol/parse.y | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/cobol/parse.y b/gcc/cobol/parse.y index 59cc64d..fae96ed 100644 --- a/gcc/cobol/parse.y +++ b/gcc/cobol/parse.y @@ -10336,8 +10336,8 @@ intrinsic: function_udf if( p != NULL ) { auto loc = symbol_field_location(field_index(p->field)); error_msg(loc, "FUNCTION %qs has " - "inconsistent parameter type %ld (%qs)", - keyword_str($1), (long)(p - args.data()), name_of(p->field) ); + "inconsistent parameter type %td (%qs)", + keyword_str($1), p - args.data(), name_of(p->field) ); YYERROR; } $$ = is_numeric(args[0].field)? |