From patchwork Sun Feb 26 19:52:43 2023 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Jerry D X-Patchwork-Id: 61654 Return-Path: Delivered-To: ouuuleilei@gmail.com Received: by 2002:a5d:5915:0:0:0:0:0 with SMTP id v21csp2076764wrd; Sun, 26 Feb 2023 11:53:40 -0800 (PST) X-Google-Smtp-Source: AK7set/3lvXuLvpOwRVE+RBjlpvWh+QeXx/VXsEiJUx2bxPs5iBvHSdXE1OzOtGR+6MUDDCdoCrP X-Received: by 2002:a17:907:b9ca:b0:88d:f759:15b0 with SMTP id xa10-20020a170907b9ca00b0088df75915b0mr29828014ejc.45.1677441219809; Sun, 26 Feb 2023 11:53:39 -0800 (PST) ARC-Seal: i=1; a=rsa-sha256; t=1677441219; cv=none; d=google.com; s=arc-20160816; b=e4mK5A2JRvASgoyVe64H5ua4wi+Jf33b4jV9JZU2eFViqlrHoa7TyEaTjCGOd/Lnjc ukeaQyJ5G+i03oVB2HzQsELiVTdfAWlvTY4323gM7c5l1pUSnBHGLFoBnW8B36jLMjdZ ucuE9kbZr5f6SYv5meaUAKf4+vDyZMdz7kH7mKQNrxcSOIEXPyYCkScjvJZuzYHTY7lf wiS1N1bFl/AW9wfHvX7QZYuPImIg3zorKDmDKsOm2+SBNU7ppqKxGvIjwKK9SThcBq4u ocNCLZwk0T9w7QG6IoRLm2+KhTk78dfjZ2P3bkhc3Sjoaint1sGoJ+8SjgXMbRz362Kq yIbg== ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=google.com; s=arc-20160816; h=sender:errors-to:reply-to:from:list-subscribe:list-help:list-post :list-archive:list-unsubscribe:list-id:precedence:subject:cc:to :content-language:user-agent:mime-version:date:message-id :dmarc-filter:delivered-to:dkim-signature:dkim-filter; bh=p2SRIU2+GNDHPamebvVsDp1dc2iN15+zpzPZoqwpFZ8=; b=YF/KUSpo7FL8Q4LMy2T0np4GSs6IqNfz8xD5aCtxB+BSr/bXqs3J3iNrH8HDusRbh7 wFJc3trL3srEVpr8xbiF3wM3aCxFkAMYFdyujrrvRxLo4n08nmLFkYMA4zWbJ1nT1Lk3 wUJGV0h60/RQamHQN6yMzGgFVMrBVzMV4BuRG32snz5E/LjT/VzeJCVvlnUw9tpUW9PY XZp9WbZXfBvxAm1fBO9yBr0dPHgQp70NmisAUU2l4iunaJUrhDC+Vp2sgYoQT2G08jmk v1ER3NpYD7cLAsGDJxV+FasLIIfLvOjH82cq0L2JnLjCgkA7TqobIB9a4fRrz4AYofsz 1I4g== ARC-Authentication-Results: i=1; mx.google.com; dkim=pass header.i=@gcc.gnu.org header.s=default header.b=xPOO1naI; spf=pass (google.com: domain of gcc-patches-bounces+ouuuleilei=gmail.com@gcc.gnu.org designates 2620:52:3:1:0:246e:9693:128c as permitted sender) smtp.mailfrom="gcc-patches-bounces+ouuuleilei=gmail.com@gcc.gnu.org"; dmarc=pass (p=NONE sp=NONE dis=NONE) header.from=gnu.org Received: from sourceware.org (server2.sourceware.org. [2620:52:3:1:0:246e:9693:128c]) by mx.google.com with ESMTPS id g25-20020a056402181900b004af6a815066si7277145edy.471.2023.02.26.11.53.39 for (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Sun, 26 Feb 2023 11:53:39 -0800 (PST) Received-SPF: pass (google.com: domain of gcc-patches-bounces+ouuuleilei=gmail.com@gcc.gnu.org designates 2620:52:3:1:0:246e:9693:128c as permitted sender) client-ip=2620:52:3:1:0:246e:9693:128c; Authentication-Results: mx.google.com; dkim=pass header.i=@gcc.gnu.org header.s=default header.b=xPOO1naI; spf=pass (google.com: domain of gcc-patches-bounces+ouuuleilei=gmail.com@gcc.gnu.org designates 2620:52:3:1:0:246e:9693:128c as permitted sender) smtp.mailfrom="gcc-patches-bounces+ouuuleilei=gmail.com@gcc.gnu.org"; dmarc=pass (p=NONE sp=NONE dis=NONE) header.from=gnu.org Received: from server2.sourceware.org (localhost [IPv6:::1]) by sourceware.org (Postfix) with ESMTP id 143F23854801 for ; Sun, 26 Feb 2023 19:53:35 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 143F23854801 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1677441215; bh=p2SRIU2+GNDHPamebvVsDp1dc2iN15+zpzPZoqwpFZ8=; h=Date:To:Cc:Subject:List-Id:List-Unsubscribe:List-Archive: List-Post:List-Help:List-Subscribe:From:Reply-To:From; b=xPOO1naIlxHjVHx+pl7l9xi4oYfauUxTcci2pFcFt0GBG92ivqDJHwHp14oXvtWNP 6jQcgGJSbf+RDvQcq8pnqq8vNldocyRdJgaZDQnyBfoGpkvf+eH6kEauMA6rIwgUPt Jbz++sp3go7J0bt86wyv++3FVZwc+x3BmuPhRaok= X-Original-To: gcc-patches@gcc.gnu.org Delivered-To: gcc-patches@gcc.gnu.org Received: from mail-pj1-x102b.google.com (mail-pj1-x102b.google.com [IPv6:2607:f8b0:4864:20::102b]) by sourceware.org (Postfix) with ESMTPS id 9A9233858D1E; Sun, 26 Feb 2023 19:52:46 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 9A9233858D1E Received: by mail-pj1-x102b.google.com with SMTP id qa18-20020a17090b4fd200b0023750b675f5so8000343pjb.3; Sun, 26 Feb 2023 11:52:46 -0800 (PST) X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; t=1677441165; h=subject:from:cc:to:content-language:user-agent:mime-version:date :message-id:x-gm-message-state:from:to:cc:subject:date:message-id :reply-to; bh=p2SRIU2+GNDHPamebvVsDp1dc2iN15+zpzPZoqwpFZ8=; b=vhwd1Axbj5UCQmNgeozBZGmTJ7FyaTy6NtFmyZFuaJPecg+ssxtNxhTEhgtUH0k87+ C9UMqkzgwyHWrRgTFBfVD4+mWNZvSgwmNmNegYd1TpHt92miPfILDvwmgL+nbF1Uy4U8 Gt9f6oV/TD+MAQhcnyGfUMNcpnky2uF1tA1/4BHQuO2TNf9Qb0vnvCsYi+ltRUjHFj8j oXOpxOyhe2VVuvxQxS8vrSjBHMft1O0ey4RFg7dLc1eigXbwlWYA9Io/A0HjyoV1xyYT zmEHgz4WCAyZLxoNf9CwfnDYYjH0Z6mvssUMOqCQyRvJEV2LUkEW0LxdrNwdqpNlMYSA awhA== X-Gm-Message-State: AO0yUKUffndW3jBiBLkVdYahg+YEDm4E18CgtFRn4KRHanEBrvcnl7iW Cdl2gOMXwkkFr5hIUufy7inNUUQAxNc= X-Received: by 2002:a17:903:244c:b0:19a:b302:5153 with SMTP id l12-20020a170903244c00b0019ab3025153mr24076330pls.6.1677441165094; Sun, 26 Feb 2023 11:52:45 -0800 (PST) Received: from [192.168.1.20] ([50.37.188.226]) by smtp.gmail.com with ESMTPSA id h5-20020a170902704500b0019acd3151d0sm3015565plt.114.2023.02.26.11.52.44 (version=TLS1_3 cipher=TLS_AES_128_GCM_SHA256 bits=128/128); Sun, 26 Feb 2023 11:52:44 -0800 (PST) Message-ID: <17e31d5c-1579-8899-70b3-57e3115b2153@gmail.com> Date: Sun, 26 Feb 2023 11:52:43 -0800 MIME-Version: 1.0 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:102.0) Gecko/20100101 Thunderbird/102.8.0 Content-Language: en-US To: gfortran Cc: gcc-patches Subject: [patch, libgfortran] Initailize some variable to get rid of nuisance warnings. X-Spam-Status: No, score=-7.8 required=5.0 tests=BAYES_00, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, DKIM_VALID_EF, FREEMAIL_ENVFROM_END_DIGIT, FREEMAIL_FROM, GIT_PATCH_0, RCVD_IN_DNSWL_NONE, SPF_HELO_NONE, SPF_PASS, TXREP autolearn=ham autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) 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-Patchwork-Original-From: Jerry D via Gcc-patches From: Jerry D Reply-To: Jerry D Errors-To: gcc-patches-bounces+ouuuleilei=gmail.com@gcc.gnu.org Sender: "Gcc-patches" X-getmail-retrieved-from-mailbox: =?utf-8?q?INBOX?= X-GMAIL-THRID: =?utf-8?q?1758924604741136786?= X-GMAIL-MSGID: =?utf-8?q?1758924604741136786?= The attached patch is minor and self explanatory. I assume this should wait for gfortran 14 since no regression involved. Please advise otherwise. Regression tested on x86-64. OK for trunk when the time is right? Regards, Jerry Author: Jerry DeLisle Date: Sat Feb 25 20:30:35 2023 -0800 Fortran: Eliminate nuisance warnings by initializing. Set sstride[0] and mstide[0] to zero, eliminating some warnings. libgfortran/ChangeLog: * generated/pack_c10.c (pack_c10): Regenerated. * generated/pack_c16.c (pack_c16): Regenerated. * generated/pack_c17.c (pack_c17): Regenerated. * generated/pack_c4.c (pack_c4): Regenerated. * generated/pack_c8.c (pack_c8): Regenerated. * generated/pack_i1.c (pack_i1): Regenerated. * generated/pack_i16.c (pack_i16): Regenerated. * generated/pack_i2.c (pack_i2): Regenerated. * generated/pack_i4.c (pack_i4): Regenerated. * generated/pack_i8.c (pack_i8): Regenerated. * generated/pack_r10.c (pack_r10): Regenerated. * generated/pack_r16.c (pack_r16): Regenerated. * generated/pack_r17.c (pack_r17): Regenerated. * generated/pack_r4.c (pack_r4): Regenerated. * generated/pack_r8.c (pack_r8): Regenerated. * generated/spread_c10.c (spread_c10): Regenerated. * generated/spread_c16.c (spread_c16): Regenerated. * generated/spread_c17.c (spread_c17): Regenerated. * generated/spread_c4.c (spread_c4): Regenerated. * generated/spread_c8.c (spread_c8): Regenerated. * generated/spread_i1.c (spread_i1): Regenerated. * generated/spread_i16.c (spread_i16): Regenerated. * generated/spread_i2.c (spread_i2): Regenerated. * generated/spread_i4.c (spread_i4): Regenerated. * generated/spread_i8.c (spread_i8): Regenerated. * generated/spread_r10.c (spread_r10): Regenerated. * generated/spread_r16.c (spread_r16): Regenerated. * generated/spread_r17.c (spread_r17): Regenerated. * generated/spread_r4.c (spread_r4): Regenerated. * generated/spread_r8.c (spread_r8): Regenerated. * intrinsics/execute_command_line.c (execute_command_line_i4), (execute_command_line_i8): Set estat_initial to zero. * intrinsics/pack_generic.c (pack_internal): Set sstride[0] and mstride[0] to zero. * intrinsics/spread_generic.c (spread_internal): Set sstride[0]. * m4/pack.m4: Set sstride[0] and mstride[0]. * m4/spread.m4: Set sstride[0]. diff --git a/libgfortran/generated/pack_c10.c b/libgfortran/generated/pack_c10.c index a961057a8a6..c01efd11cf8 100644 --- a/libgfortran/generated/pack_c10.c +++ b/libgfortran/generated/pack_c10.c @@ -96,6 +96,9 @@ pack_c10 (gfc_array_c10 *ret, const gfc_array_c10 *array, dim = GFC_DESCRIPTOR_RANK (array); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + mstride[0] = 0; + mptr = mask->base_addr; /* Use the same loop for all logical types, by using GFC_LOGICAL_1 diff --git a/libgfortran/generated/pack_c16.c b/libgfortran/generated/pack_c16.c index 37c062798bb..8ee6b25cbe6 100644 --- a/libgfortran/generated/pack_c16.c +++ b/libgfortran/generated/pack_c16.c @@ -96,6 +96,9 @@ pack_c16 (gfc_array_c16 *ret, const gfc_array_c16 *array, dim = GFC_DESCRIPTOR_RANK (array); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + mstride[0] = 0; + mptr = mask->base_addr; /* Use the same loop for all logical types, by using GFC_LOGICAL_1 diff --git a/libgfortran/generated/pack_c17.c b/libgfortran/generated/pack_c17.c index f9638d640ad..7a1cf5e17e8 100644 --- a/libgfortran/generated/pack_c17.c +++ b/libgfortran/generated/pack_c17.c @@ -96,6 +96,9 @@ pack_c17 (gfc_array_c17 *ret, const gfc_array_c17 *array, dim = GFC_DESCRIPTOR_RANK (array); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + mstride[0] = 0; + mptr = mask->base_addr; /* Use the same loop for all logical types, by using GFC_LOGICAL_1 diff --git a/libgfortran/generated/pack_c4.c b/libgfortran/generated/pack_c4.c index d72717041a1..76c8a853fac 100644 --- a/libgfortran/generated/pack_c4.c +++ b/libgfortran/generated/pack_c4.c @@ -96,6 +96,9 @@ pack_c4 (gfc_array_c4 *ret, const gfc_array_c4 *array, dim = GFC_DESCRIPTOR_RANK (array); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + mstride[0] = 0; + mptr = mask->base_addr; /* Use the same loop for all logical types, by using GFC_LOGICAL_1 diff --git a/libgfortran/generated/pack_c8.c b/libgfortran/generated/pack_c8.c index 9f8e97e4bc8..365c26ed0e8 100644 --- a/libgfortran/generated/pack_c8.c +++ b/libgfortran/generated/pack_c8.c @@ -96,6 +96,9 @@ pack_c8 (gfc_array_c8 *ret, const gfc_array_c8 *array, dim = GFC_DESCRIPTOR_RANK (array); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + mstride[0] = 0; + mptr = mask->base_addr; /* Use the same loop for all logical types, by using GFC_LOGICAL_1 diff --git a/libgfortran/generated/pack_i1.c b/libgfortran/generated/pack_i1.c index 0f4fe72b3f5..97a82281a5c 100644 --- a/libgfortran/generated/pack_i1.c +++ b/libgfortran/generated/pack_i1.c @@ -96,6 +96,9 @@ pack_i1 (gfc_array_i1 *ret, const gfc_array_i1 *array, dim = GFC_DESCRIPTOR_RANK (array); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + mstride[0] = 0; + mptr = mask->base_addr; /* Use the same loop for all logical types, by using GFC_LOGICAL_1 diff --git a/libgfortran/generated/pack_i16.c b/libgfortran/generated/pack_i16.c index 3c4169b88ca..a0aa6db29d8 100644 --- a/libgfortran/generated/pack_i16.c +++ b/libgfortran/generated/pack_i16.c @@ -96,6 +96,9 @@ pack_i16 (gfc_array_i16 *ret, const gfc_array_i16 *array, dim = GFC_DESCRIPTOR_RANK (array); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + mstride[0] = 0; + mptr = mask->base_addr; /* Use the same loop for all logical types, by using GFC_LOGICAL_1 diff --git a/libgfortran/generated/pack_i2.c b/libgfortran/generated/pack_i2.c index c5878afc163..24efcaae17e 100644 --- a/libgfortran/generated/pack_i2.c +++ b/libgfortran/generated/pack_i2.c @@ -96,6 +96,9 @@ pack_i2 (gfc_array_i2 *ret, const gfc_array_i2 *array, dim = GFC_DESCRIPTOR_RANK (array); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + mstride[0] = 0; + mptr = mask->base_addr; /* Use the same loop for all logical types, by using GFC_LOGICAL_1 diff --git a/libgfortran/generated/pack_i4.c b/libgfortran/generated/pack_i4.c index 45f5d05918b..6642f2b0bc1 100644 --- a/libgfortran/generated/pack_i4.c +++ b/libgfortran/generated/pack_i4.c @@ -96,6 +96,9 @@ pack_i4 (gfc_array_i4 *ret, const gfc_array_i4 *array, dim = GFC_DESCRIPTOR_RANK (array); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + mstride[0] = 0; + mptr = mask->base_addr; /* Use the same loop for all logical types, by using GFC_LOGICAL_1 diff --git a/libgfortran/generated/pack_i8.c b/libgfortran/generated/pack_i8.c index c45fc27c04a..0f6ce94f036 100644 --- a/libgfortran/generated/pack_i8.c +++ b/libgfortran/generated/pack_i8.c @@ -96,6 +96,9 @@ pack_i8 (gfc_array_i8 *ret, const gfc_array_i8 *array, dim = GFC_DESCRIPTOR_RANK (array); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + mstride[0] = 0; + mptr = mask->base_addr; /* Use the same loop for all logical types, by using GFC_LOGICAL_1 diff --git a/libgfortran/generated/pack_r10.c b/libgfortran/generated/pack_r10.c index 1211fc492af..7dd232853b4 100644 --- a/libgfortran/generated/pack_r10.c +++ b/libgfortran/generated/pack_r10.c @@ -96,6 +96,9 @@ pack_r10 (gfc_array_r10 *ret, const gfc_array_r10 *array, dim = GFC_DESCRIPTOR_RANK (array); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + mstride[0] = 0; + mptr = mask->base_addr; /* Use the same loop for all logical types, by using GFC_LOGICAL_1 diff --git a/libgfortran/generated/pack_r16.c b/libgfortran/generated/pack_r16.c index e6d6c7cfb8e..6db5e65e16f 100644 --- a/libgfortran/generated/pack_r16.c +++ b/libgfortran/generated/pack_r16.c @@ -96,6 +96,9 @@ pack_r16 (gfc_array_r16 *ret, const gfc_array_r16 *array, dim = GFC_DESCRIPTOR_RANK (array); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + mstride[0] = 0; + mptr = mask->base_addr; /* Use the same loop for all logical types, by using GFC_LOGICAL_1 diff --git a/libgfortran/generated/pack_r17.c b/libgfortran/generated/pack_r17.c index 02e0b9622cb..6f9ff439559 100644 --- a/libgfortran/generated/pack_r17.c +++ b/libgfortran/generated/pack_r17.c @@ -96,6 +96,9 @@ pack_r17 (gfc_array_r17 *ret, const gfc_array_r17 *array, dim = GFC_DESCRIPTOR_RANK (array); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + mstride[0] = 0; + mptr = mask->base_addr; /* Use the same loop for all logical types, by using GFC_LOGICAL_1 diff --git a/libgfortran/generated/pack_r4.c b/libgfortran/generated/pack_r4.c index 630d2a0e730..09132539ce9 100644 --- a/libgfortran/generated/pack_r4.c +++ b/libgfortran/generated/pack_r4.c @@ -96,6 +96,9 @@ pack_r4 (gfc_array_r4 *ret, const gfc_array_r4 *array, dim = GFC_DESCRIPTOR_RANK (array); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + mstride[0] = 0; + mptr = mask->base_addr; /* Use the same loop for all logical types, by using GFC_LOGICAL_1 diff --git a/libgfortran/generated/pack_r8.c b/libgfortran/generated/pack_r8.c index 90d66bbc04b..96b648aca4e 100644 --- a/libgfortran/generated/pack_r8.c +++ b/libgfortran/generated/pack_r8.c @@ -96,6 +96,9 @@ pack_r8 (gfc_array_r8 *ret, const gfc_array_r8 *array, dim = GFC_DESCRIPTOR_RANK (array); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + mstride[0] = 0; + mptr = mask->base_addr; /* Use the same loop for all logical types, by using GFC_LOGICAL_1 diff --git a/libgfortran/generated/spread_c10.c b/libgfortran/generated/spread_c10.c index 485f4ad1431..987a81c0d7b 100644 --- a/libgfortran/generated/spread_c10.c +++ b/libgfortran/generated/spread_c10.c @@ -56,6 +56,8 @@ spread_c10 (gfc_array_c10 *ret, const gfc_array_c10 *source, srank = GFC_DESCRIPTOR_RANK(source); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + rrank = srank + 1; if (rrank > GFC_MAX_DIMENSIONS) runtime_error ("return rank too large in spread()"); diff --git a/libgfortran/generated/spread_c16.c b/libgfortran/generated/spread_c16.c index 23ed7a6684f..d7969a14a6a 100644 --- a/libgfortran/generated/spread_c16.c +++ b/libgfortran/generated/spread_c16.c @@ -56,6 +56,8 @@ spread_c16 (gfc_array_c16 *ret, const gfc_array_c16 *source, srank = GFC_DESCRIPTOR_RANK(source); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + rrank = srank + 1; if (rrank > GFC_MAX_DIMENSIONS) runtime_error ("return rank too large in spread()"); diff --git a/libgfortran/generated/spread_c17.c b/libgfortran/generated/spread_c17.c index f6d13e97e21..3011c365c14 100644 --- a/libgfortran/generated/spread_c17.c +++ b/libgfortran/generated/spread_c17.c @@ -56,6 +56,8 @@ spread_c17 (gfc_array_c17 *ret, const gfc_array_c17 *source, srank = GFC_DESCRIPTOR_RANK(source); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + rrank = srank + 1; if (rrank > GFC_MAX_DIMENSIONS) runtime_error ("return rank too large in spread()"); diff --git a/libgfortran/generated/spread_c4.c b/libgfortran/generated/spread_c4.c index 322c86061be..f0550d36e2b 100644 --- a/libgfortran/generated/spread_c4.c +++ b/libgfortran/generated/spread_c4.c @@ -56,6 +56,8 @@ spread_c4 (gfc_array_c4 *ret, const gfc_array_c4 *source, srank = GFC_DESCRIPTOR_RANK(source); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + rrank = srank + 1; if (rrank > GFC_MAX_DIMENSIONS) runtime_error ("return rank too large in spread()"); diff --git a/libgfortran/generated/spread_c8.c b/libgfortran/generated/spread_c8.c index 9a06ee29718..b93518fb900 100644 --- a/libgfortran/generated/spread_c8.c +++ b/libgfortran/generated/spread_c8.c @@ -56,6 +56,8 @@ spread_c8 (gfc_array_c8 *ret, const gfc_array_c8 *source, srank = GFC_DESCRIPTOR_RANK(source); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + rrank = srank + 1; if (rrank > GFC_MAX_DIMENSIONS) runtime_error ("return rank too large in spread()"); diff --git a/libgfortran/generated/spread_i1.c b/libgfortran/generated/spread_i1.c index fc140e25f68..3c913a30397 100644 --- a/libgfortran/generated/spread_i1.c +++ b/libgfortran/generated/spread_i1.c @@ -56,6 +56,8 @@ spread_i1 (gfc_array_i1 *ret, const gfc_array_i1 *source, srank = GFC_DESCRIPTOR_RANK(source); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + rrank = srank + 1; if (rrank > GFC_MAX_DIMENSIONS) runtime_error ("return rank too large in spread()"); diff --git a/libgfortran/generated/spread_i16.c b/libgfortran/generated/spread_i16.c index 80ace87ae87..61dc5c49ad9 100644 --- a/libgfortran/generated/spread_i16.c +++ b/libgfortran/generated/spread_i16.c @@ -56,6 +56,8 @@ spread_i16 (gfc_array_i16 *ret, const gfc_array_i16 *source, srank = GFC_DESCRIPTOR_RANK(source); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + rrank = srank + 1; if (rrank > GFC_MAX_DIMENSIONS) runtime_error ("return rank too large in spread()"); diff --git a/libgfortran/generated/spread_i2.c b/libgfortran/generated/spread_i2.c index 0815de1e2f2..28a4f8b1a7c 100644 --- a/libgfortran/generated/spread_i2.c +++ b/libgfortran/generated/spread_i2.c @@ -56,6 +56,8 @@ spread_i2 (gfc_array_i2 *ret, const gfc_array_i2 *source, srank = GFC_DESCRIPTOR_RANK(source); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + rrank = srank + 1; if (rrank > GFC_MAX_DIMENSIONS) runtime_error ("return rank too large in spread()"); diff --git a/libgfortran/generated/spread_i4.c b/libgfortran/generated/spread_i4.c index 4873c59c659..a0a53322d16 100644 --- a/libgfortran/generated/spread_i4.c +++ b/libgfortran/generated/spread_i4.c @@ -56,6 +56,8 @@ spread_i4 (gfc_array_i4 *ret, const gfc_array_i4 *source, srank = GFC_DESCRIPTOR_RANK(source); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + rrank = srank + 1; if (rrank > GFC_MAX_DIMENSIONS) runtime_error ("return rank too large in spread()"); diff --git a/libgfortran/generated/spread_i8.c b/libgfortran/generated/spread_i8.c index f212bc63639..206bbbbb367 100644 --- a/libgfortran/generated/spread_i8.c +++ b/libgfortran/generated/spread_i8.c @@ -56,6 +56,8 @@ spread_i8 (gfc_array_i8 *ret, const gfc_array_i8 *source, srank = GFC_DESCRIPTOR_RANK(source); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + rrank = srank + 1; if (rrank > GFC_MAX_DIMENSIONS) runtime_error ("return rank too large in spread()"); diff --git a/libgfortran/generated/spread_r10.c b/libgfortran/generated/spread_r10.c index 95816263aee..07608385984 100644 --- a/libgfortran/generated/spread_r10.c +++ b/libgfortran/generated/spread_r10.c @@ -56,6 +56,8 @@ spread_r10 (gfc_array_r10 *ret, const gfc_array_r10 *source, srank = GFC_DESCRIPTOR_RANK(source); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + rrank = srank + 1; if (rrank > GFC_MAX_DIMENSIONS) runtime_error ("return rank too large in spread()"); diff --git a/libgfortran/generated/spread_r16.c b/libgfortran/generated/spread_r16.c index 6856f70122a..af6075e6b3d 100644 --- a/libgfortran/generated/spread_r16.c +++ b/libgfortran/generated/spread_r16.c @@ -56,6 +56,8 @@ spread_r16 (gfc_array_r16 *ret, const gfc_array_r16 *source, srank = GFC_DESCRIPTOR_RANK(source); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + rrank = srank + 1; if (rrank > GFC_MAX_DIMENSIONS) runtime_error ("return rank too large in spread()"); diff --git a/libgfortran/generated/spread_r17.c b/libgfortran/generated/spread_r17.c index f2a459528dd..cb765d3212e 100644 --- a/libgfortran/generated/spread_r17.c +++ b/libgfortran/generated/spread_r17.c @@ -56,6 +56,8 @@ spread_r17 (gfc_array_r17 *ret, const gfc_array_r17 *source, srank = GFC_DESCRIPTOR_RANK(source); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + rrank = srank + 1; if (rrank > GFC_MAX_DIMENSIONS) runtime_error ("return rank too large in spread()"); diff --git a/libgfortran/generated/spread_r4.c b/libgfortran/generated/spread_r4.c index 5a52870c537..8fdb722e523 100644 --- a/libgfortran/generated/spread_r4.c +++ b/libgfortran/generated/spread_r4.c @@ -56,6 +56,8 @@ spread_r4 (gfc_array_r4 *ret, const gfc_array_r4 *source, srank = GFC_DESCRIPTOR_RANK(source); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + rrank = srank + 1; if (rrank > GFC_MAX_DIMENSIONS) runtime_error ("return rank too large in spread()"); diff --git a/libgfortran/generated/spread_r8.c b/libgfortran/generated/spread_r8.c index 3bc847f000e..ecfe9ad4e8b 100644 --- a/libgfortran/generated/spread_r8.c +++ b/libgfortran/generated/spread_r8.c @@ -56,6 +56,8 @@ spread_r8 (gfc_array_r8 *ret, const gfc_array_r8 *source, srank = GFC_DESCRIPTOR_RANK(source); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + rrank = srank + 1; if (rrank > GFC_MAX_DIMENSIONS) runtime_error ("return rank too large in spread()"); diff --git a/libgfortran/intrinsics/execute_command_line.c b/libgfortran/intrinsics/execute_command_line.c index 0d1688400c2..c2bcaf05f0b 100644 --- a/libgfortran/intrinsics/execute_command_line.c +++ b/libgfortran/intrinsics/execute_command_line.c @@ -192,6 +192,8 @@ execute_command_line_i4 (const char *command, GFC_LOGICAL_4 *wait, bool w = wait ? *wait : true; int estat, estat_initial, cstat; + estat_initial = 0; /* Avoid nuisance warning if not initialized. */ + if (exitstat) estat_initial = estat = *exitstat; @@ -221,6 +223,8 @@ execute_command_line_i8 (const char *command, GFC_LOGICAL_8 *wait, bool w = wait ? *wait : true; int estat, estat_initial, cstat; + estat_initial = 0; /* Avoid nuisance warning if not initialized. */ + if (exitstat) estat_initial = estat = *exitstat; diff --git a/libgfortran/intrinsics/pack_generic.c b/libgfortran/intrinsics/pack_generic.c index 5bc7f1c254b..cc7c8497ba1 100644 --- a/libgfortran/intrinsics/pack_generic.c +++ b/libgfortran/intrinsics/pack_generic.c @@ -94,6 +94,9 @@ pack_internal (gfc_array_char *ret, const gfc_array_char *array, dim = GFC_DESCRIPTOR_RANK (array); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + mstride[0] = 0; + sptr = array->base_addr; mptr = mask->base_addr; diff --git a/libgfortran/intrinsics/spread_generic.c b/libgfortran/intrinsics/spread_generic.c index 7e3c8d5b04d..5b6df95447e 100644 --- a/libgfortran/intrinsics/spread_generic.c +++ b/libgfortran/intrinsics/spread_generic.c @@ -55,6 +55,8 @@ spread_internal (gfc_array_char *ret, const gfc_array_char *source, srank = GFC_DESCRIPTOR_RANK(source); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + rrank = srank + 1; if (rrank > GFC_MAX_DIMENSIONS) runtime_error ("return rank too large in spread()"); diff --git a/libgfortran/m4/pack.m4 b/libgfortran/m4/pack.m4 index 3003355c2c9..8bb8c250ceb 100644 --- a/libgfortran/m4/pack.m4 +++ b/libgfortran/m4/pack.m4 @@ -97,6 +97,9 @@ pack_'rtype_code` ('rtype` *ret, const 'rtype` *array, dim = GFC_DESCRIPTOR_RANK (array); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + mstride[0] = 0; + mptr = mask->base_addr; /* Use the same loop for all logical types, by using GFC_LOGICAL_1 diff --git a/libgfortran/m4/spread.m4 b/libgfortran/m4/spread.m4 index 0d70345f8e0..edb46ef1b85 100644 --- a/libgfortran/m4/spread.m4 +++ b/libgfortran/m4/spread.m4 @@ -57,6 +57,8 @@ spread_'rtype_code` ('rtype` *ret, const 'rtype` *source, srank = GFC_DESCRIPTOR_RANK(source); + sstride[0] = 0; /* Avoid warnings if not initialized. */ + rrank = srank + 1; if (rrank > GFC_MAX_DIMENSIONS) runtime_error ("return rank too large in spread()");