diff options
Diffstat (limited to 'gnu/usr.bin/gcc/f/bld.c')
| -rw-r--r-- | gnu/usr.bin/gcc/f/bld.c | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/gnu/usr.bin/gcc/f/bld.c b/gnu/usr.bin/gcc/f/bld.c index 63fe91d678a..3a95727adc1 100644 --- a/gnu/usr.bin/gcc/f/bld.c +++ b/gnu/usr.bin/gcc/f/bld.c @@ -1,5 +1,5 @@ /* bld.c -- Implementation File (module.c template V1.0) - Copyright (C) 1995 Free Software Foundation, Inc. + Copyright (C) 1995, 1996 Free Software Foundation, Inc. Contributed by James Craig Burley (burley@gnu.ai.mit.edu). This file is part of GNU Fortran. @@ -1067,7 +1067,7 @@ ffebld_constant_is_zero (ffebldConstant c) #endif #if FFETARGET_okCHARACTER2 || FFETARGET_okCHARACTER3 /* ... */ -#error no support for these!! +#error "no support for these!!" #endif case FFEBLD_constHOLLERITH: @@ -2007,6 +2007,7 @@ ffebld_constantarray_dump (ffebldConstantArray array, ffeinfoBasictype bt, ffeinfoKindtype kt, ffetargetOffset size, ffebit bits) { ffetargetOffset i; + ffebitCount j; ffebld_dump_prefix (dmpout, bt, kt); @@ -2038,12 +2039,12 @@ ffebld_constantarray_dump (ffebldConstantArray array, ffeinfoBasictype bt, else fprintf (dmpout, "[%" ffetargetOffset_f "u..%" ffetargetOffset_f "d]:", - offset, offset + length - 1); - for (i = 0; i < length; ++i, ++offset) + offset, offset + (ffetargetOffset) length - 1); + for (j = 0; j < length; ++j, ++offset) { ffebld_constantunion_dump (ffebld_constantarray_get (array, bt, kt, offset), bt, kt); - if (i != length - 1) + if (j != length - 1) fputc (',', dmpout); } fprintf (dmpout, ";"); |