Mercurial > hg > CbC > CbC_gcc

comparison libgfortran/generated/maxloc1_8_r10.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 MAXLOC intrinsic 1 /* Implementation of the MAXLOC 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
245 index_type n; 245 index_type n;
246 index_type len; 246 index_type len;
247 index_type delta; 247 index_type delta;
248 index_type mdelta; 248 index_type mdelta;
249 int mask_kind; 249 int mask_kind;
250
251 if (mask == NULL)
252 {
253 #ifdef HAVE_BACK_ARG
254 maxloc1_8_r10 (retarray, array, pdim, back);
255 #else
256 maxloc1_8_r10 (retarray, array, pdim);
257 #endif
258 return;
259 }
250 260
251 dim = (*pdim) - 1; 261 dim = (*pdim) - 1;
252 rank = GFC_DESCRIPTOR_RANK (array) - 1; 262 rank = GFC_DESCRIPTOR_RANK (array) - 1;
253 263
254 264
468 index_type rank; 478 index_type rank;
469 index_type n; 479 index_type n;
470 index_type dim; 480 index_type dim;
471 481
472 482
473 if (*mask) 483 if (mask == NULL || *mask)
474 { 484 {
475 #ifdef HAVE_BACK_ARG 485 #ifdef HAVE_BACK_ARG
476 maxloc1_8_r10 (retarray, array, pdim, back); 486 maxloc1_8_r10 (retarray, array, pdim, back);
477 #else 487 #else
478 maxloc1_8_r10 (retarray, array, pdim); 488 maxloc1_8_r10 (retarray, array, pdim);