diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2024-09-24 21:59:10 +0200 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2024-09-24 21:59:10 +0200 |
| commit | 5e918a4db9e4a5bdbeafec6881fa8b22a55d3789 (patch) | |
| tree | 95bc57dc02c17a52e89b3d403815d7f85a0e8f3f /libgfortran/generated/sum_c17.c | |
| parent | 5d98fe096b5d17021875806ffc32ba41ea0e87b0 (diff) | |
| download | gcc-5e918a4db9e4a5bdbeafec6881fa8b22a55d3789.zip gcc-5e918a4db9e4a5bdbeafec6881fa8b22a55d3789.tar.gz gcc-5e918a4db9e4a5bdbeafec6881fa8b22a55d3789.tar.bz2 | |
Implement SUM and PRODUCT for unsigned.
gcc/fortran/ChangeLog:
* gfortran.texi: Document SUM and PRODUCT.
* iresolve.cc (resolve_transformational): New argument,
use_integer, to translate calls to unsigned to calls to
integer.
(gfc_resolve_product): Use it
(gfc_resolve_sum): Use it.
* simplify.cc (init_result_expr): Handle BT_UNSIGNED.
libgfortran/ChangeLog:
* generated/product_c10.c: Regenerated.
* generated/product_c16.c: Regenerated.
* generated/product_c17.c: Regenerated.
* generated/product_c4.c: Regenerated.
* generated/product_c8.c: Regenerated.
* generated/product_i1.c: Regenerated.
* generated/product_i16.c: Regenerated.
* generated/product_i2.c: Regenerated.
* generated/product_i4.c: Regenerated.
* generated/product_i8.c: Regenarated.
* generated/product_r10.c: Regenerated.
* generated/product_r16.c: Regenerated.
* generated/product_r17.c: Regenerated.
* generated/product_r4.c: Regenerated.
* generated/product_r8.c: Regenarated.
* generated/sum_c10.c: Regenerated.
* generated/sum_c16.c: Regenerated.
* generated/sum_c17.c: Regenerated.
* generated/sum_c4.c: Regenerated.
* generated/sum_c8.c: Regenerated.
* generated/sum_i1.c: Regenerated.
* generated/sum_i16.c: Regenerated.
* generated/sum_i2.c: Regenerated.
* generated/sum_i4.c: Regenerated.
* generated/sum_i8.c: Regenerated.
* generated/sum_r10.c: Regenerated.
* generated/sum_r16.c: Regenerated.
* generated/sum_r17.c: Regenerated.
* generated/sum_r4.c: Regenerated.
* generated/sum_r8.c: Regenerated.
* m4/ifunction.m4: Whitespace fix.
* m4/product.m4: If type is integer, change to unsigned.
* m4/sum.m4: Likewise.
Diffstat (limited to 'libgfortran/generated/sum_c17.c')
| -rw-r--r-- | libgfortran/generated/sum_c17.c | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/libgfortran/generated/sum_c17.c b/libgfortran/generated/sum_c17.c index e1c3bbe..56df816 100644 --- a/libgfortran/generated/sum_c17.c +++ b/libgfortran/generated/sum_c17.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_COMPLEX_17) && defined (HAVE_GFC_COMPLEX_17) -extern void sum_c17 (gfc_array_c17 * const restrict, +extern void sum_c17 (gfc_array_c17 * const restrict, gfc_array_c17 * const restrict, const index_type * const restrict); export_proto(sum_c17); void -sum_c17 (gfc_array_c17 * const restrict retarray, - gfc_array_c17 * const restrict array, +sum_c17 (gfc_array_c17 * const restrict retarray, + gfc_array_c17 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -188,15 +188,15 @@ sum_c17 (gfc_array_c17 * const restrict retarray, } -extern void msum_c17 (gfc_array_c17 * const restrict, +extern void msum_c17 (gfc_array_c17 * const restrict, gfc_array_c17 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(msum_c17); void -msum_c17 (gfc_array_c17 * const restrict retarray, - gfc_array_c17 * const restrict array, - const index_type * const restrict pdim, +msum_c17 (gfc_array_c17 * const restrict retarray, + gfc_array_c17 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -378,15 +378,15 @@ msum_c17 (gfc_array_c17 * const restrict retarray, } -extern void ssum_c17 (gfc_array_c17 * const restrict, +extern void ssum_c17 (gfc_array_c17 * const restrict, gfc_array_c17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(ssum_c17); void -ssum_c17 (gfc_array_c17 * const restrict retarray, - gfc_array_c17 * const restrict array, - const index_type * const restrict pdim, +ssum_c17 (gfc_array_c17 * const restrict retarray, + gfc_array_c17 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; |