From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from esa4.mentor.iphmx.com (esa4.mentor.iphmx.com [68.232.137.252]) by sourceware.org (Postfix) with ESMTPS id 1C01A3971C46; Mon, 28 Sep 2020 21:12:17 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.3.2 sourceware.org 1C01A3971C46 Authentication-Results: sourceware.org; dmarc=none (p=none dis=none) header.from=codesourcery.com Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=Tobias_Burnus@mentor.com IronPort-SDR: 0DGdwfhR15pvrPPKlHqDb2dnelwZ7fDVbrSt5hrMeJKHwZHHw3/QR+f9/LMdvDJ3tNxPhsP7De Lvd8g7fmFR0WZuqzOuICwshtQ2zEMGeDkLQ0HbW3FfeJSV0YUBRHJdW0GfwG6Apq6/q5/JZZii YDl2ok8FtQcNZCmUQeQslGEHtC9kEfWmPBIWvkDceGLXvDTq+hdpgzg6AnExosApMTvkFzSVbe nsPcWQgokAmn7frhXwmvNY7T0klswmeHl9HKvDhZemMvJt1mvkE4KTbDmFUVUvQXVqeyxFurUg cBY= X-IronPort-AV: E=Sophos;i="5.77,315,1596528000"; d="diff'?scan'208";a="53494619" Received: from orw-gwy-01-in.mentorg.com ([192.94.38.165]) by esa4.mentor.iphmx.com with ESMTP; 28 Sep 2020 13:12:15 -0800 IronPort-SDR: RuzNV60V4CG/sAMX1Xes8z2OwXaLKyZ3CNJfpmlQ0nfhfdNcsvsVDagTFT0jH/pZSGlc6oIIXm hkGZw3Hx2C6UU+cybFWdhCULynyqicXNzqohQGiwYa2dP36KGa6C9CNNuf4PzZXoGDnZU075QD NJCRvB6Ye4tSYZulW1/zCXkzHIELEpebYzOuhTmWMiHmrvsA2CbF8Rme7hbyGBnS1IDPPdfr72 BherRcAsj5+jm38kPmfDlP+5wfkF6V1hqHnUG/gTzRNrt6MEb3z7mAz1b7FmqFUA81nYrtIcTk VfQ= To: gcc-patches , fortran From: Tobias Burnus Subject: [Patch, Fortran] libgomp: Silence unpack's may be used uninitialized warning Message-ID: <14d0246b-eda1-7d28-d134-8952801f29d3@codesourcery.com> Date: Mon, 28 Sep 2020 23:12:09 +0200 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:68.0) Gecko/20100101 Thunderbird/68.12.0 MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="------------812BC1D92A569F887469F087" Content-Language: en-US X-Originating-IP: [137.202.0.90] X-ClientProxiedBy: svr-ies-mbx-02.mgc.mentorg.com (139.181.222.2) To svr-ies-mbx-01.mgc.mentorg.com (139.181.222.1) X-Spam-Status: No, score=-11.8 required=5.0 tests=BAYES_00, GIT_PATCH_0, HEADER_FROM_DIFFERENT_DOMAINS, KAM_DMARC_STATUS, SPF_HELO_PASS, SPF_PASS, TXREP autolearn=ham autolearn_force=no version=3.4.2 X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on server2.sourceware.org X-BeenThere: gcc-patches@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-patches mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Mon, 28 Sep 2020 21:12:20 -0000 --------------812BC1D92A569F887469F087 Content-Type: text/plain; charset="utf-8"; format=flowed Content-Transfer-Encoding: quoted-printable There are more warnings, but I picked this one which shows up with default build options for GCC trunk =E2=80=93 twice for each generated file: ../../../../repos/gcc/libgfortran/generated/unpack_i2.c:128:12: warning: = =E2=80=98rstride=E2=80=99 may be used uninitialized [-Wmaybe-uninitialized] ../../../../repos/gcc/libgfortran/generated/unpack_i2.c:278:12: warning: = =E2=80=98rstride=E2=80=99 may be used uninitialized [-Wmaybe-uninitialized] Hence, 13 times these messages (=C3=972 warnings/file + =C3=972 with multil= ib) =E2=86=92 53 'warning:'. Seemingly, the compiler logic has changes as the previous location used to be sufficient to silence the compiler. (The warning is right if base_addr =3D NULL and dim =3D 0; the latter shoul= d not occur but the compiler does not know this.) Committed as obvious as r11-3508-g69c56ce673d1e1d4508e82053a32011f807c6088 Tobias ----------------- Mentor Graphics (Deutschland) GmbH, Arnulfstra=C3=9Fe 201, 80634 M=C3=BCnch= en / Germany Registergericht M=C3=BCnchen HRB 106955, Gesch=C3=A4ftsf=C3=BChrer: Thomas = Heurung, Alexander Walter --------------812BC1D92A569F887469F087 Content-Type: text/x-patch; charset="UTF-8"; name="warn.diff" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename="warn.diff" libgfortran/m4/unpack.m4: Silence -Wmaybe-uninitialized libgfortran/ChangeLog: * m4/unpack.m4 (unpack0_'rtype_code`, unpack1_'rtype_code`): Move 'rstride[0]' initialization outside outside conditional branch to silence -Wmaybe-uninitialized. * generated/unpack_c10.c: Regenerate. * generated/unpack_c16.c: Regenerate. * generated/unpack_c4.c: Regenerate. * generated/unpack_c8.c: Regenerate. * generated/unpack_i1.c: Regenerate. * generated/unpack_i16.c: Regenerate. * generated/unpack_i2.c: Regenerate. * generated/unpack_i4.c: Regenerate. * generated/unpack_i8.c: Regenerate. * generated/unpack_r10.c: Regenerate. * generated/unpack_r16.c: Regenerate. * generated/unpack_r4.c: Regenerate. * generated/unpack_r8.c: Regenerate. libgfortran/generated/unpack_c10.c | 8 ++++---- libgfortran/generated/unpack_c16.c | 8 ++++---- libgfortran/generated/unpack_c4.c | 8 ++++---- libgfortran/generated/unpack_c8.c | 8 ++++---- libgfortran/generated/unpack_i1.c | 8 ++++---- libgfortran/generated/unpack_i16.c | 8 ++++---- libgfortran/generated/unpack_i2.c | 8 ++++---- libgfortran/generated/unpack_i4.c | 8 ++++---- libgfortran/generated/unpack_i8.c | 8 ++++---- libgfortran/generated/unpack_r10.c | 8 ++++---- libgfortran/generated/unpack_r16.c | 8 ++++---- libgfortran/generated/unpack_r4.c | 8 ++++---- libgfortran/generated/unpack_r8.c | 8 ++++---- libgfortran/m4/unpack.m4 | 8 ++++---- 14 files changed, 56 insertions(+), 56 deletions(-) diff --git a/libgfortran/m4/unpack.m4 b/libgfortran/m4/unpack.m4 index da7a5ce0443..ebc469a84f8 100644 --- a/libgfortran/m4/unpack.m4 +++ b/libgfortran/m4/unpack.m4 @@ -80,6 +80,8 @@ unpack0_'rtype_code` ('rtype` *ret, const 'rtype` *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -103,8 +105,6 @@ unpack0_'rtype_code` ('rtype` *ret, const 'rtype` *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; @@ -226,6 +226,8 @@ unpack1_'rtype_code` ('rtype` *ret, const 'rtype` *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -250,8 +252,6 @@ unpack1_'rtype_code` ('rtype` *ret, const 'rtype` *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; diff --git a/libgfortran/generated/unpack_c10.c b/libgfortran/generated/unpack_c10.c index e3b3c29e9da..12110df8af0 100644 --- a/libgfortran/generated/unpack_c10.c +++ b/libgfortran/generated/unpack_c10.c @@ -79,6 +79,8 @@ unpack0_c10 (gfc_array_c10 *ret, const gfc_array_c10 *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -102,8 +104,6 @@ unpack0_c10 (gfc_array_c10 *ret, const gfc_array_c10 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; @@ -225,6 +225,8 @@ unpack1_c10 (gfc_array_c10 *ret, const gfc_array_c10 *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -249,8 +251,6 @@ unpack1_c10 (gfc_array_c10 *ret, const gfc_array_c10 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; diff --git a/libgfortran/generated/unpack_c16.c b/libgfortran/generated/unpack_c16.c index 0c99509cfda..c684156f297 100644 --- a/libgfortran/generated/unpack_c16.c +++ b/libgfortran/generated/unpack_c16.c @@ -79,6 +79,8 @@ unpack0_c16 (gfc_array_c16 *ret, const gfc_array_c16 *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -102,8 +104,6 @@ unpack0_c16 (gfc_array_c16 *ret, const gfc_array_c16 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; @@ -225,6 +225,8 @@ unpack1_c16 (gfc_array_c16 *ret, const gfc_array_c16 *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -249,8 +251,6 @@ unpack1_c16 (gfc_array_c16 *ret, const gfc_array_c16 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; diff --git a/libgfortran/generated/unpack_c4.c b/libgfortran/generated/unpack_c4.c index 15c20c57334..374b3fe0c8c 100644 --- a/libgfortran/generated/unpack_c4.c +++ b/libgfortran/generated/unpack_c4.c @@ -79,6 +79,8 @@ unpack0_c4 (gfc_array_c4 *ret, const gfc_array_c4 *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -102,8 +104,6 @@ unpack0_c4 (gfc_array_c4 *ret, const gfc_array_c4 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; @@ -225,6 +225,8 @@ unpack1_c4 (gfc_array_c4 *ret, const gfc_array_c4 *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -249,8 +251,6 @@ unpack1_c4 (gfc_array_c4 *ret, const gfc_array_c4 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; diff --git a/libgfortran/generated/unpack_c8.c b/libgfortran/generated/unpack_c8.c index b85fcb98abe..110cb4f3ee0 100644 --- a/libgfortran/generated/unpack_c8.c +++ b/libgfortran/generated/unpack_c8.c @@ -79,6 +79,8 @@ unpack0_c8 (gfc_array_c8 *ret, const gfc_array_c8 *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -102,8 +104,6 @@ unpack0_c8 (gfc_array_c8 *ret, const gfc_array_c8 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; @@ -225,6 +225,8 @@ unpack1_c8 (gfc_array_c8 *ret, const gfc_array_c8 *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -249,8 +251,6 @@ unpack1_c8 (gfc_array_c8 *ret, const gfc_array_c8 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; diff --git a/libgfortran/generated/unpack_i1.c b/libgfortran/generated/unpack_i1.c index 1bea990e80e..96237a169b2 100644 --- a/libgfortran/generated/unpack_i1.c +++ b/libgfortran/generated/unpack_i1.c @@ -79,6 +79,8 @@ unpack0_i1 (gfc_array_i1 *ret, const gfc_array_i1 *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -102,8 +104,6 @@ unpack0_i1 (gfc_array_i1 *ret, const gfc_array_i1 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; @@ -225,6 +225,8 @@ unpack1_i1 (gfc_array_i1 *ret, const gfc_array_i1 *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -249,8 +251,6 @@ unpack1_i1 (gfc_array_i1 *ret, const gfc_array_i1 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; diff --git a/libgfortran/generated/unpack_i16.c b/libgfortran/generated/unpack_i16.c index fa69d8ef08c..f58be9572d9 100644 --- a/libgfortran/generated/unpack_i16.c +++ b/libgfortran/generated/unpack_i16.c @@ -79,6 +79,8 @@ unpack0_i16 (gfc_array_i16 *ret, const gfc_array_i16 *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -102,8 +104,6 @@ unpack0_i16 (gfc_array_i16 *ret, const gfc_array_i16 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; @@ -225,6 +225,8 @@ unpack1_i16 (gfc_array_i16 *ret, const gfc_array_i16 *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -249,8 +251,6 @@ unpack1_i16 (gfc_array_i16 *ret, const gfc_array_i16 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; diff --git a/libgfortran/generated/unpack_i2.c b/libgfortran/generated/unpack_i2.c index 59baea51bd6..0dab104c9db 100644 --- a/libgfortran/generated/unpack_i2.c +++ b/libgfortran/generated/unpack_i2.c @@ -79,6 +79,8 @@ unpack0_i2 (gfc_array_i2 *ret, const gfc_array_i2 *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -102,8 +104,6 @@ unpack0_i2 (gfc_array_i2 *ret, const gfc_array_i2 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; @@ -225,6 +225,8 @@ unpack1_i2 (gfc_array_i2 *ret, const gfc_array_i2 *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -249,8 +251,6 @@ unpack1_i2 (gfc_array_i2 *ret, const gfc_array_i2 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; diff --git a/libgfortran/generated/unpack_i4.c b/libgfortran/generated/unpack_i4.c index 4dc7482f6ca..b32c92a5d67 100644 --- a/libgfortran/generated/unpack_i4.c +++ b/libgfortran/generated/unpack_i4.c @@ -79,6 +79,8 @@ unpack0_i4 (gfc_array_i4 *ret, const gfc_array_i4 *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -102,8 +104,6 @@ unpack0_i4 (gfc_array_i4 *ret, const gfc_array_i4 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; @@ -225,6 +225,8 @@ unpack1_i4 (gfc_array_i4 *ret, const gfc_array_i4 *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -249,8 +251,6 @@ unpack1_i4 (gfc_array_i4 *ret, const gfc_array_i4 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; diff --git a/libgfortran/generated/unpack_i8.c b/libgfortran/generated/unpack_i8.c index 40a929854e7..25a928ca13c 100644 --- a/libgfortran/generated/unpack_i8.c +++ b/libgfortran/generated/unpack_i8.c @@ -79,6 +79,8 @@ unpack0_i8 (gfc_array_i8 *ret, const gfc_array_i8 *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -102,8 +104,6 @@ unpack0_i8 (gfc_array_i8 *ret, const gfc_array_i8 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; @@ -225,6 +225,8 @@ unpack1_i8 (gfc_array_i8 *ret, const gfc_array_i8 *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -249,8 +251,6 @@ unpack1_i8 (gfc_array_i8 *ret, const gfc_array_i8 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; diff --git a/libgfortran/generated/unpack_r10.c b/libgfortran/generated/unpack_r10.c index 7981754ca35..4044ec3f897 100644 --- a/libgfortran/generated/unpack_r10.c +++ b/libgfortran/generated/unpack_r10.c @@ -79,6 +79,8 @@ unpack0_r10 (gfc_array_r10 *ret, const gfc_array_r10 *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -102,8 +104,6 @@ unpack0_r10 (gfc_array_r10 *ret, const gfc_array_r10 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; @@ -225,6 +225,8 @@ unpack1_r10 (gfc_array_r10 *ret, const gfc_array_r10 *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -249,8 +251,6 @@ unpack1_r10 (gfc_array_r10 *ret, const gfc_array_r10 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; diff --git a/libgfortran/generated/unpack_r16.c b/libgfortran/generated/unpack_r16.c index ac5738ff07d..beeaa4e41e8 100644 --- a/libgfortran/generated/unpack_r16.c +++ b/libgfortran/generated/unpack_r16.c @@ -79,6 +79,8 @@ unpack0_r16 (gfc_array_r16 *ret, const gfc_array_r16 *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -102,8 +104,6 @@ unpack0_r16 (gfc_array_r16 *ret, const gfc_array_r16 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; @@ -225,6 +225,8 @@ unpack1_r16 (gfc_array_r16 *ret, const gfc_array_r16 *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -249,8 +251,6 @@ unpack1_r16 (gfc_array_r16 *ret, const gfc_array_r16 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; diff --git a/libgfortran/generated/unpack_r4.c b/libgfortran/generated/unpack_r4.c index b149b5183ab..283dd848f52 100644 --- a/libgfortran/generated/unpack_r4.c +++ b/libgfortran/generated/unpack_r4.c @@ -79,6 +79,8 @@ unpack0_r4 (gfc_array_r4 *ret, const gfc_array_r4 *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -102,8 +104,6 @@ unpack0_r4 (gfc_array_r4 *ret, const gfc_array_r4 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; @@ -225,6 +225,8 @@ unpack1_r4 (gfc_array_r4 *ret, const gfc_array_r4 *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -249,8 +251,6 @@ unpack1_r4 (gfc_array_r4 *ret, const gfc_array_r4 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; diff --git a/libgfortran/generated/unpack_r8.c b/libgfortran/generated/unpack_r8.c index d8db8e0ac14..08882995313 100644 --- a/libgfortran/generated/unpack_r8.c +++ b/libgfortran/generated/unpack_r8.c @@ -79,6 +79,8 @@ unpack0_r8 (gfc_array_r8 *ret, const gfc_array_r8 *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -102,8 +104,6 @@ unpack0_r8 (gfc_array_r8 *ret, const gfc_array_r8 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; @@ -225,6 +225,8 @@ unpack1_r8 (gfc_array_r8 *ret, const gfc_array_r8 *vector, else runtime_error ("Funny sized logical array"); + /* Initialize to avoid -Wmaybe-uninitialized complaints. */ + rstride[0] = 1; if (ret->base_addr == NULL) { /* The front end has signalled that we need to populate the @@ -249,8 +251,6 @@ unpack1_r8 (gfc_array_r8 *ret, const gfc_array_r8 *vector, else { dim = GFC_DESCRIPTOR_RANK (ret); - /* Initialize to avoid -Wmaybe-uninitialized complaints. */ - rstride[0] = 1; for (n = 0; n < dim; n++) { count[n] = 0; --------------812BC1D92A569F887469F087--