diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-08-12 20:39:18 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-08-12 20:39:18 +0000 |
| commit | 096f0d9dbc9e9746d3def29a4b4bd2cd17bf5f74 (patch) | |
| tree | fdb16e18f1fa6652d43d535ded79415b2270355b /gcc/fortran/interface.c | |
| parent | 654b60732e6a604471862085f0037fd05df86887 (diff) | |
| download | gcc-096f0d9dbc9e9746d3def29a4b4bd2cd17bf5f74.zip gcc-096f0d9dbc9e9746d3def29a4b4bd2cd17bf5f74.tar.gz gcc-096f0d9dbc9e9746d3def29a4b4bd2cd17bf5f74.tar.bz2 | |
re PR fortran/32860 (Support %ld (for "long") for gfc_warning)
PR fortran/32860
* error.c (error_uinteger): New function.
(error_integer): Call error_uinteger.
(error_print): Handle %u, %lu, %li and %ld format specifiers.
* interface.c (compare_actual_formal): Use the new %lu specifier.
* c-format.c (gcc_gfc_length_specs): New array.
(gcc_gfc_char_table): Add unsigned specifier, and references to
the l length modifier.
(format_types_orig): Use the new gcc_gfc_length_specs.
* gcc.dg/format/gcc_gfc-1.c: Updated with new formats.
From-SVN: r127382
Diffstat (limited to 'gcc/fortran/interface.c')
| -rw-r--r-- | gcc/fortran/interface.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 293a54a..dbd7538 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -1680,14 +1680,14 @@ compare_actual_formal (gfc_actual_arglist **ap, gfc_formal_arglist *formal, { if (a->expr->ts.type == BT_CHARACTER && !f->sym->as && where) gfc_warning ("Character length of actual argument shorter " - "than of dummy argument '%s' (%d/%d) at %L", - f->sym->name, (int) actual_size, - (int) formal_size, &a->expr->where); + "than of dummy argument '%s' (%lu/%lu) at %L", + f->sym->name, actual_size, formal_size, + &a->expr->where); else if (where) gfc_warning ("Actual argument contains too few " - "elements for dummy argument '%s' (%d/%d) at %L", - f->sym->name, (int) actual_size, - (int) formal_size, &a->expr->where); + "elements for dummy argument '%s' (%lu/%lu) at %L", + f->sym->name, actual_size, formal_size, + &a->expr->where); return 0; } |