Mercurial > hg > CbC > CbC_gcc

comparison libgfortran/generated/sum_i8.c @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 84e7813d76e9
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
1 /* Implementation of the SUM intrinsic 1 /* Implementation of the SUM intrinsic
2 Copyright (C) 2002-2018 Free Software Foundation, Inc. 2 Copyright (C) 2002-2020 Free Software Foundation, Inc.
3 Contributed by Paul Brook <paul@nowt.org> 3 Contributed by Paul Brook <paul@nowt.org>
4 4
5 This file is part of the GNU Fortran 95 runtime library (libgfortran). 5 This file is part of the GNU Fortran 95 runtime library (libgfortran).
6 6
7 Libgfortran is free software; you can redistribute it and/or 7 Libgfortran is free software; you can redistribute it and/or
217 index_type n; 217 index_type n;
218 index_type len; 218 index_type len;
219 index_type delta; 219 index_type delta;
220 index_type mdelta; 220 index_type mdelta;
221 int mask_kind; 221 int mask_kind;
222
223 if (mask == NULL)
224 {
225 #ifdef HAVE_BACK_ARG
226 sum_i8 (retarray, array, pdim, back);
227 #else
228 sum_i8 (retarray, array, pdim);
229 #endif
230 return;
231 }
222 232
223 dim = (*pdim) - 1; 233 dim = (*pdim) - 1;
224 rank = GFC_DESCRIPTOR_RANK (array) - 1; 234 rank = GFC_DESCRIPTOR_RANK (array) - 1;
225 235
226 236
397 index_type rank; 407 index_type rank;
398 index_type n; 408 index_type n;
399 index_type dim; 409 index_type dim;
400 410
401 411
402 if (*mask) 412 if (mask == NULL || *mask)
403 { 413 {
404 #ifdef HAVE_BACK_ARG 414 #ifdef HAVE_BACK_ARG
405 sum_i8 (retarray, array, pdim, back); 415 sum_i8 (retarray, array, pdim, back);
406 #else 416 #else
407 sum_i8 (retarray, array, pdim); 417 sum_i8 (retarray, array, pdim);