Mercurial > hg > CbC > CbC_gcc

comparison libgfortran/generated/maxloc0_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 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
196 GFC_LOGICAL_1 *mbase; 196 GFC_LOGICAL_1 *mbase;
197 int rank; 197 int rank;
198 index_type n; 198 index_type n;
199 int mask_kind; 199 int mask_kind;
200 200
201
202 if (mask == NULL)
203 {
204 maxloc0_8_r10 (retarray, array, back);
205 return;
206 }
207
201 rank = GFC_DESCRIPTOR_RANK (array); 208 rank = GFC_DESCRIPTOR_RANK (array);
202 if (rank <= 0) 209 if (rank <= 0)
203 runtime_error ("Rank of array needs to be > 0"); 210 runtime_error ("Rank of array needs to be > 0");
204 211
205 if (retarray->base_addr == NULL) 212 if (retarray->base_addr == NULL)
367 index_type rank; 374 index_type rank;
368 index_type dstride; 375 index_type dstride;
369 index_type n; 376 index_type n;
370 GFC_INTEGER_8 *dest; 377 GFC_INTEGER_8 *dest;
371 378
372 if (*mask) 379 if (mask == NULL || *mask)
373 { 380 {
374 maxloc0_8_r10 (retarray, array, back); 381 maxloc0_8_r10 (retarray, array, back);
375 return; 382 return;
376 } 383 }
377 384