From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mail-pg1-x52e.google.com (mail-pg1-x52e.google.com [IPv6:2607:f8b0:4864:20::52e]) by sourceware.org (Postfix) with ESMTPS id 5669F3858D39; Thu, 22 Feb 2024 19:11:27 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 5669F3858D39 Authentication-Results: sourceware.org; dmarc=pass (p=none dis=none) header.from=gmail.com Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=gmail.com ARC-Filter: OpenARC Filter v1.0.0 sourceware.org 5669F3858D39 Authentication-Results: server2.sourceware.org; arc=none smtp.remote-ip=2607:f8b0:4864:20::52e ARC-Seal: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1708629089; cv=none; b=W3OP19oSCFHtLB20rVk6eN2GqdUC//Q6Mw8I3HRBteKCyn2dtm9IldkwNnKVJ7f+5qn2PsjvECogghLjiIEikdzdBZr/ABBfNm+8j/L0qLn7bujS34YAXq8Jhb9UYM1YfbXMl5iBkDhJ62dD0o6dwVbDzxFWHPqxZxaV7uCiTpQ= ARC-Message-Signature: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1708629089; c=relaxed/simple; bh=QrQrd0w2ifwNE45dPuphA2w5vIa/gE5Q8qWuBG0H8aQ=; h=DKIM-Signature:Message-ID:Date:MIME-Version:To:From:Subject; b=WkaBKstpcZO11DKMxqdVnQUIvaFHAPqNuowg51EoRahwcrFmm4oIb2St3GxH7LWQCoed+SpYQDlwLsdzhRO/w7pLZBcbTywqAd5lx4DN6WV85OsyKLDF2SAHRO/pUZotZrbQPO0/gBI/EsfI3Uz/Dvqalmx5ucY6a3hWuwd93EU= ARC-Authentication-Results: i=1; server2.sourceware.org Received: by mail-pg1-x52e.google.com with SMTP id 41be03b00d2f7-5cfb8126375so5604a12.1; Thu, 22 Feb 2024 11:11:27 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20230601; t=1708629086; x=1709233886; darn=gcc.gnu.org; h=autocrypt:subject:from:cc:to:content-language:user-agent :mime-version:date:message-id:from:to:cc:subject:date:message-id :reply-to; bh=6D0FtZyNuaolgiOqoe1NbaGeHdqb71QB3opGcz5Z3PA=; b=VCPbOjTBms+PrOR++sYfRskEOooxj2k9Mqy2uMns74PtLXzkcrhutts8+PjVvO1Ew1 3HdcWSPULx6JPYn93W+4Q4cXJ8Sk/OnM7b+hGp8xn1nLvtJB0mN8HNRzZBdzLHJapylw vtwhwEHIUq0IlQ9HcnJPQMGD8X99/eC1siQBWzVeqV2nNpGwOaow2FxfPu1GyLkXN193 42R8ca0pgHP0VqchnUNfV/GLdPrShn3gyiKuBrbtvqax1NphPqeK2jCrKS58T2jautIT sImfGCSyKSaSXLmuFRp/UdcQjVsk4DV6YR2HG9d1Of2A9b2RIj9kO+69dbAiJ+slKJE1 2Ivw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1708629086; x=1709233886; h=autocrypt: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=6D0FtZyNuaolgiOqoe1NbaGeHdqb71QB3opGcz5Z3PA=; b=LxComA3PWPB6O03pqZkE6DApHSoqpjD/QZk3djKJ4VyV8mw/zjBNKaQyS7sucTBwEx iCM+4xtExrxTUE5WGNOQrErdH9nSUuTGV95NR6AtJsdgnOEgLUmnd51mBY6sUal3C/Hc LRwfsedE+C8LddxINgr9+eXEP2j4po1B6O0RlT/BD+aKFBBZKwnKiikZt/8GDmP9K98j vJlLaq3DDmDdsCcLXljQM3y9WJMfW2Fjb4ImmgWpdnWCeAPdnZy90gBTLgVHv2Xopw4W 8XrvOFI2vBeRDe/QY704+NOMCs1ZoGijf50jg9oIZz3lqnceifX7UjDlDcd9/HuegO5U 4vRw== X-Gm-Message-State: AOJu0Yzc1rSbB2LCmpUBC5hmFQGWiY5JHLVlJXdC13pWHY3aSYjMpj08 L6Gh+ljFe8shejsnUBWzfccmKh1AmHd0SCrvyvUrmACCDKCgf+Fq7yx3S+6PAb4= X-Google-Smtp-Source: AGHT+IEQh7gRi73hEe7P00gAJS0K0WS0Hf4dSQL7//sQyqOvqrZLpyVlJsXXPDMW6RVKuWcOnYIWZw== X-Received: by 2002:a05:6a21:328d:b0:1a0:d4d4:260b with SMTP id yt13-20020a056a21328d00b001a0d4d4260bmr2679513pzb.3.1708629085869; Thu, 22 Feb 2024 11:11:25 -0800 (PST) Received: from [192.168.1.20] ([50.37.177.113]) by smtp.gmail.com with ESMTPSA id k2-20020a632402000000b005dcc8a3b26esm10369418pgk.16.2024.02.22.11.11.25 (version=TLS1_3 cipher=TLS_AES_128_GCM_SHA256 bits=128/128); Thu, 22 Feb 2024 11:11:25 -0800 (PST) Content-Type: multipart/mixed; boundary="------------nJVQMHshHc5Ycffm9wScqRx0" Message-ID: <701a3111-c3b5-422c-bee7-50ba00e3847a@gmail.com> Date: Thu, 22 Feb 2024 11:11:25 -0800 MIME-Version: 1.0 User-Agent: Mozilla Thunderbird Content-Language: en-US To: gfortran Cc: gcc-patches From: Jerry D Subject: [patch, libgfortran] PR105456 Child I/O does not propage iostat Autocrypt: addr=jvdelisle2@gmail.com; keydata= xjMEY5TlkxYJKwYBBAHaRw8BAQdAyrkRDhmJhSTTlV/50gJLlvliU6/Lm5C9ViKV8T9y1GnN HkplcnJ5IEQgPGp2ZGVsaXNsZTJAZ21haWwuY29tPsKJBBMWCAAxFiEEOFR0TS0390uh8dRV uWXAJaWpwWoFAmOU5ZMCGwMECwkIBwUVCAkKCwUWAgMBAAAKCRC5ZcAlpanBalsJAP4wdCiH 2Of9oZv1QWgZ/AVdbWFM3Fv47/WZQHOXfoZ9HgD6AkXrKeJ+6usST7PEaDJjptaViT1fLiYY V/6XaOKSsgLOOARjlOWTEgorBgEEAZdVAQUBAQdAdA7PczYnl07vnOT9oP/wvvMDd4HP09Zl g3LzwXQJWT8DAQgHwngEGBYIACAWIQQ4VHRNLTf3S6Hx1FW5ZcAlpanBagUCY5TlkwIbDAAK CRC5ZcAlpanBasF/AQCa5WjlsVpLsEiggZyT18MOJNAdeRd7wkGDUrwedHrvawD/cE1H+/Ms L1ZwvQiLfGdx8crigQqWTQyos4kH8Wx82wc= X-Spam-Status: No, score=-8.1 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,T_SCC_BODY_TEXT_LINE autolearn=ham autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org List-Id: This is a multi-part message in MIME format. --------------nJVQMHshHc5Ycffm9wScqRx0 Content-Type: text/plain; charset=UTF-8; format=flowed Content-Transfer-Encoding: 7bit Hi all, The attached fix adds a check for an error condition from a UDDTIO procedure in the case where there is no actual underlying error, but the user defines an error by setting the iostat variable manually before returning to the parent READ. I did not address the case of a formatted WRITE or unformatted READ/WRITE until I get some feedback on the approach. If this approach is OK I would like to commit and then do a separate patch for the cases I just mentioned. Feedback appreciated. Regression tested on x86_64. OK for trunk? Jerry Author: Jerry DeLisle Date: Thu Feb 22 10:48:39 2024 -0800 libgfortran: Propagate user defined iostat and iomsg. PR libfortran/105456 libgfortran/ChangeLog: * io/list_read.c (list_formatted_read_scalar): Add checks for the case where a user defines their own error codes and error messages and generate the runtime error. gcc/testsuite/ChangeLog: * gfortran.dg/pr105456.f90: New test. --------------nJVQMHshHc5Ycffm9wScqRx0 Content-Type: text/x-patch; charset=UTF-8; name="pr105456.diff" Content-Disposition: attachment; filename="pr105456.diff" Content-Transfer-Encoding: base64 ZGlmZiAtLWdpdCBhL2djYy90ZXN0c3VpdGUvZ2ZvcnRyYW4uZGcvcHIxMDU0NTYuZjkwIGIv Z2NjL3Rlc3RzdWl0ZS9nZm9ydHJhbi5kZy9wcjEwNTQ1Ni5mOTAKbmV3IGZpbGUgbW9kZSAx MDA2NDQKaW5kZXggMDAwMDAwMDAwMDAuLjQxMTg3M2Y0YWVkCi0tLSAvZGV2L251bGwKKysr IGIvZ2NjL3Rlc3RzdWl0ZS9nZm9ydHJhbi5kZy9wcjEwNTQ1Ni5mOTAKQEAgLTAsMCArMSw0 MSBAQAorISB7IGRnLWRvIHJ1biB9CishIHsgZGctc2hvdWxkZmFpbCAiVGhlIHVzZXJzIG1l c3NhZ2UiIH0KK21vZHVsZSBzazEKKyAgaW1wbGljaXQgbm9uZQorICB0eXBlIGNoYXIKKyAg ICAgY2hhcmFjdGVyIDo6IGNoCisgIGVuZCB0eXBlIGNoYXIKKyAgaW50ZXJmYWNlIHJlYWQg KGZvcm1hdHRlZCkKKyAgICAgbW9kdWxlIHByb2NlZHVyZSByZWFkX2Zvcm1hdHRlZAorICBl bmQgaW50ZXJmYWNlIHJlYWQgKGZvcm1hdHRlZCkKK2NvbnRhaW5zCisgIHN1YnJvdXRpbmUg cmVhZF9mb3JtYXR0ZWQgKGR0diwgdW5pdCwgaW90eXBlLCB2bGlzdCwgcGlvc3RhdCwgcGlv bXNnKQorICAgIGNsYXNzIChjaGFyKSwgaW50ZW50KGlub3V0KSA6OiBkdHYKKyAgICBpbnRl Z2VyLCBpbnRlbnQoaW4pIDo6IHVuaXQKKyAgICBjaGFyYWN0ZXIgKGxlbj0qKSwgaW50ZW50 KGluKSA6OiBpb3R5cGUKKyAgICBpbnRlZ2VyLCBpbnRlbnQoaW4pIDo6IHZsaXN0KDopCisg ICAgaW50ZWdlciwgaW50ZW50KG91dCkgOjogcGlvc3RhdAorICAgIGNoYXJhY3RlciAobGVu PSopLCBpbnRlbnQoaW5vdXQpIDo6IHBpb21zZworICAgIGNoYXJhY3RlciA6OiBjaAorICAg IHJlYWQgKHVuaXQsZm10PScoQTEpJywgYWR2YW5jZT0ibm8iLCBpb3N0YXQ9cGlvc3RhdCwg aW9tc2c9cGlvbXNnKSBjaAorICAgIHBpb3N0YXQgPSA0MgorICAgIHBpb21zZz0iVGhlIHVz ZXJzIG1lc3NhZ2UiCisgICAgZHR2JWNoID0gY2gKKyAgZW5kIHN1YnJvdXRpbmUgcmVhZF9m b3JtYXR0ZWQKK2VuZCBtb2R1bGUgc2sxCisKK3Byb2dyYW0gc2tpcDEKKyAgdXNlIHNrMQor ICBpbXBsaWNpdCBub25lCisgIGludGVnZXIgOjogbXllcnJvciA9IDAKKyAgY2hhcmFjdGVy KDY0KSA6OiBteW1lc3NhZ2UgPSAiIgorICB0eXBlIChjaGFyKSA6OiB4CisgIG9wZW4gKDEw LHN0YXR1cz0ic2NyYXRjaCIpCisgIHdyaXRlICgxMCwnKEEpJykgJycsICdhJworICByZXdp bmQgKDEwKQorICByZWFkICgxMCwqKSB4CisgIHByaW50ICosIG15ZXJyb3IsIG15bWVzc2Fn ZQorICB3cml0ZSAoKiwnKDEwKEEpKScpICJSZWFkOiAnIix4JWNoLCInIgorZW5kIHByb2dy YW0gc2tpcDEKKyEgeyBkZy1vdXRwdXQgIi4qKHVuaXQgPSAxMCwgZmlsZSA9IC4qKSIgfQor ISB7IGRnLW91dHB1dCAiRm9ydHJhbiBydW50aW1lIGVycm9yOiBUaGUgdXNlcnMgbWVzc2Fn ZSIgfQpkaWZmIC0tZ2l0IGEvbGliZ2ZvcnRyYW4vaW8vbGlzdF9yZWFkLmMgYi9saWJnZm9y dHJhbi9pby9saXN0X3JlYWQuYwppbmRleCAzZDI5Y2I2NDgxMy4uZWUzYWI3MTM1MTkgMTAw NjQ0Ci0tLSBhL2xpYmdmb3J0cmFuL2lvL2xpc3RfcmVhZC5jCisrKyBiL2xpYmdmb3J0cmFu L2lvL2xpc3RfcmVhZC5jCkBAIC0yMTM4LDYgKzIxMzgsNyBAQCBzdGF0aWMgaW50CiBsaXN0 X2Zvcm1hdHRlZF9yZWFkX3NjYWxhciAoc3RfcGFyYW1ldGVyX2R0ICpkdHAsIGJ0IHR5cGUs IHZvaWQgKnAsCiAJCQkgICAgaW50IGtpbmQsIHNpemVfdCBzaXplKQogeworICBjaGFyIG1l c3NhZ2VbTVNHTEVOXTsKICAgZ2ZjX2NoYXI0X3QgKnEsICpyOwogICBzaXplX3QgbTsKICAg aW50IGM7CkBAIC0yMjQ3LDcgKzIyNDgsNyBAQCBsaXN0X2Zvcm1hdHRlZF9yZWFkX3NjYWxh ciAoc3RfcGFyYW1ldGVyX2R0ICpkdHAsIGJ0IHR5cGUsIHZvaWQgKnAsCiAJICBjaGlsZF9p b3N0YXQgPSAoKGR0cC0+Y29tbW9uLmZsYWdzICYgSU9QQVJNX0hBU19JT1NUQVQpCiAJCQkg ID8gZHRwLT5jb21tb24uaW9zdGF0IDogJm5vaW9zdGF0KTsKIAotCSAgLyogU2V0IGlvbXNn ZSwgaW50ZW50KGlub3V0KS4gICovCisJICAvKiBTZXQgaW9tc2csIGludGVudChpbm91dCku ICAqLwogCSAgaWYgKGR0cC0+Y29tbW9uLmZsYWdzICYgSU9QQVJNX0hBU19JT01TRykKIAkg ICAgewogCSAgICAgIGNoaWxkX2lvbXNnID0gZHRwLT5jb21tb24uaW9tc2c7CkBAIC0yMjY2 LDYgKzIyNjcsMjUgQEAgbGlzdF9mb3JtYXR0ZWRfcmVhZF9zY2FsYXIgKHN0X3BhcmFtZXRl cl9kdCAqZHRwLCBidCB0eXBlLCB2b2lkICpwLAogCQkJICAgICAgaW90eXBlX2xlbiwgY2hp bGRfaW9tc2dfbGVuKTsKIAkgIGR0cC0+dS5wLmNoaWxkX3NhdmVkX2lvc3RhdCA9ICpjaGls ZF9pb3N0YXQ7CiAJICBkdHAtPnUucC5jdXJyZW50X3VuaXQtPmNoaWxkX2R0aW8tLTsKKwor CisJICBpZiAoKGR0cC0+dS5wLmNoaWxkX3NhdmVkX2lvc3RhdCAhPSAwKSAmJgorCSAgICAg ICEoZHRwLT5jb21tb24uZmxhZ3MgJiBJT1BBUk1fSEFTX0lPTVNHKSAmJgorCSAgICAgICEo ZHRwLT5jb21tb24uZmxhZ3MgJiBJT1BBUk1fSEFTX0lPU1RBVCkpCisJICAgIHsKKwkgICAg ICAvKiBUcmltIHRyYWlsaW5nIHNwYWNlcyBmcm9tIHRoZSBtZXNzYWdlLiAgKi8KKwkgICAg ICBmb3IoaW50IGkgPSBJT01TR19MRU4gLSAxOyBpID4gMDsgaS0tKQorCQlpZiAoIWlzc3Bh Y2UoY2hpbGRfaW9tc2dbaV0pKQorCQkgIHsKKwkJICAgIC8qIEFkZCB0d28gdG8gZ2V0IGJh Y2sgdG8gdGhlIGVuZCBvZiBjaGlsZF9pb21zZy4gICovCisJCSAgICBjaGlsZF9pb21zZ19s ZW4gPSBpKzI7CisJCSAgICBicmVhazsKKwkJICB9CisJICAgICAgZnJlZV9saW5lIChkdHAp OworCSAgICAgIHNucHJpbnRmIChtZXNzYWdlLCBjaGlsZF9pb21zZ19sZW4sIGNoaWxkX2lv bXNnKTsKKwkgICAgICBnZW5lcmF0ZV9lcnJvciAoJmR0cC0+Y29tbW9uLCBkdHAtPnUucC5j aGlsZF9zYXZlZF9pb3N0YXQsCisJCQkgICAgICBtZXNzYWdlKTsKKwkgICAgfQogICAgICAg fQogICAgICAgYnJlYWs7CiAgICAgZGVmYXVsdDoK --------------nJVQMHshHc5Ycffm9wScqRx0--