Mercurial > hg > CbC > CbC_gcc
comparison libgfortran/generated/maxloc1_16_i2.c @ 145:1830386684a0
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_16_i2 (retarray, array, pdim, back); | |
255 #else | |
256 maxloc1_16_i2 (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_16_i2 (retarray, array, pdim, back); | 486 maxloc1_16_i2 (retarray, array, pdim, back); |
477 #else | 487 #else |
478 maxloc1_16_i2 (retarray, array, pdim); | 488 maxloc1_16_i2 (retarray, array, pdim); |