Mercurial > hg > CbC > CbC_gcc

comparison libgfortran/generated/iany_i16.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 IANY intrinsic 1 /* Implementation of the IANY intrinsic
2 Copyright (C) 2010-2018 Free Software Foundation, Inc. 2 Copyright (C) 2010-2020 Free Software Foundation, Inc.
3 Contributed by Tobias Burnus <burnus@net-b.de> 3 Contributed by Tobias Burnus <burnus@net-b.de>
4 4
5 This file is part of the GNU Fortran runtime library (libgfortran). 5 This file is part of the GNU Fortran 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 iany_i16 (retarray, array, pdim, back);
227 #else
228 iany_i16 (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 iany_i16 (retarray, array, pdim, back); 415 iany_i16 (retarray, array, pdim, back);
406 #else 416 #else
407 iany_i16 (retarray, array, pdim); 417 iany_i16 (retarray, array, pdim);