Mercurial > hg > CbC > CbC_gcc

comparison libgfortran/generated/minloc1_4_r16.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 MINLOC intrinsic 1 /* Implementation of the MINLOC 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 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
256 index_type len; 256 index_type len;
257 index_type delta; 257 index_type delta;
258 index_type mdelta; 258 index_type mdelta;
259 int mask_kind; 259 int mask_kind;
260 260
261 if (mask == NULL)
262 {
263 #ifdef HAVE_BACK_ARG
264 minloc1_4_r16 (retarray, array, pdim, back);
265 #else
266 minloc1_4_r16 (retarray, array, pdim);
267 #endif
268 return;
269 }
270
261 dim = (*pdim) - 1; 271 dim = (*pdim) - 1;
262 rank = GFC_DESCRIPTOR_RANK (array) - 1; 272 rank = GFC_DESCRIPTOR_RANK (array) - 1;
263 273
264 274
265 if (unlikely (dim < 0 || dim > rank)) 275 if (unlikely (dim < 0 || dim > rank))
478 index_type rank; 488 index_type rank;
479 index_type n; 489 index_type n;
480 index_type dim; 490 index_type dim;
481 491
482 492
483 if (*mask) 493 if (mask == NULL || *mask)
484 { 494 {
485 #ifdef HAVE_BACK_ARG 495 #ifdef HAVE_BACK_ARG
486 minloc1_4_r16 (retarray, array, pdim, back); 496 minloc1_4_r16 (retarray, array, pdim, back);
487 #else 497 #else
488 minloc1_4_r16 (retarray, array, pdim); 498 minloc1_4_r16 (retarray, array, pdim);