Mercurial > hg > CbC > CbC_gcc
comparison libgfortran/generated/maxloc0_8_r4.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 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_r4 (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_r4 (retarray, array, back); | 381 maxloc0_8_r4 (retarray, array, back); |
375 return; | 382 return; |
376 } | 383 } |
377 | 384 |