From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mail-pg1-x52b.google.com (mail-pg1-x52b.google.com [IPv6:2607:f8b0:4864:20::52b]) by sourceware.org (Postfix) with ESMTPS id 6C0863858D35; Sat, 6 May 2023 03:41:51 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 6C0863858D35 Authentication-Results: sourceware.org; dmarc=pass (p=none dis=none) header.from=gmail.com Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=gmail.com Received: by mail-pg1-x52b.google.com with SMTP id 41be03b00d2f7-51f64817809so378992a12.1; Fri, 05 May 2023 20:41:51 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20221208; t=1683344510; x=1685936510; h=subject:from:cc:to:content-language:user-agent:mime-version:date :message-id:from:to:cc:subject:date:message-id:reply-to; bh=5LsrpexJpAJgFRJTga4qND/BlkgioKynaGdx2eBe744=; b=V/NbNvyiNiCGZjD3i0U/y+De7Xdlm6IDjATrFUymn3TSVLlpO+/XXiGB88EylZuRPR 79m3qUie8UC3whzU4a9mlXRxq1qf51AU9MKokfE6nc5q0nido6Rquxdsd2JP8ladMEuW HH+HPZqPu49xRes8Ri+DY1509G3ySboEwBuWWn3LeO+HVLtfp7hS+sfG8dwGp1eWCeNb 5Zymk3KI9CnktC8ZNFyKHCZ9ONpLzl8fUrPyjDo89t4AhRO7Z1Ml+SkTQ5GTXSDgt4C3 jaOV88WdfQuAeygBC335yrCVJvPwNOvdS0ckdio5f/VKH0nW63p5zFDeK7eR0oW050s/ 6skg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20221208; t=1683344510; x=1685936510; 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=5LsrpexJpAJgFRJTga4qND/BlkgioKynaGdx2eBe744=; b=iwxrdY+qPzYYApjt0lWje0pZQ9ZtKXD5rQxa3/OR8PT/0fyTNcW832E2PvzNU9WZi/ xHp7hscqLJQ1BwIiJGN74+vs+/RMM1HrOHrrPr/EENbckcUGO42VEBGY33PmpnWPQE9n cZZdnfDykYan1n0IIYXLXJg+ln0rgH1jcZZvNtTNIKG7OYfDGN0fXP0dj5crJM09+l91 yD8I7Gyo6TqbRBkNpVlfc3sQHh3GWIqYYEiKYVb494pDs175FP0GYOxIk2c/XpDkbvJc 9nODIJhcQBCQ96CVHR+MOH3L4vWWLik/mI1uWN3Bb5Ch/4XX9GxohT2gMOHfwkT1X5z7 4B/g== X-Gm-Message-State: AC+VfDzIb/AvirxgxRz/FZTURsMjpi+4MdBuRxJHgk3RTZJHdNYpu1MD l4kz0epn9HodqMIYHcFDCs+6C4sQAjU= X-Google-Smtp-Source: ACHHUZ7SzRDTuXbyL/xUWtQ4vUIX7ZWjvQT7Rqmclf+iqrfWusB0SvMNu3VQvXfxfoM7xAotPJxL4g== X-Received: by 2002:a17:902:e74f:b0:19e:94ff:6780 with SMTP id p15-20020a170902e74f00b0019e94ff6780mr4486927plf.6.1683344509828; Fri, 05 May 2023 20:41:49 -0700 (PDT) Received: from [192.168.1.20] ([50.37.188.226]) by smtp.gmail.com with ESMTPSA id jw12-20020a170903278c00b001a260b5319bsm2478847plb.91.2023.05.05.20.41.49 (version=TLS1_3 cipher=TLS_AES_128_GCM_SHA256 bits=128/128); Fri, 05 May 2023 20:41:49 -0700 (PDT) Content-Type: multipart/mixed; boundary="------------zqBrp0PDK0SfH0hM1FKF7Jkv" Message-ID: Date: Fri, 5 May 2023 20:41:48 -0700 MIME-Version: 1.0 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:102.0) Gecko/20100101 Thunderbird/102.10.0 Content-Language: en-US To: gfortran Cc: gcc-patches From: Jerry D Subject: [patch, fortran] PR109662 Namelist input with comma after name accepted 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,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. --------------zqBrp0PDK0SfH0hM1FKF7Jkv Content-Type: text/plain; charset=UTF-8; format=flowed Content-Transfer-Encoding: 7bit The attached patch adds a check for the invalid comma and emits a runtime error if -std=f95,f2003,f2018 are specified at compile time. Attached patch includes a new test case. Regression tested on x86_64-linux-gnu. OK for mainline? Regards, Jerry Author: Jerry DeLisle Date: Fri May 5 20:12:25 2023 -0700 Fortran: Namelist read with invalid input accepted. PR fortran/109662 libgfortran/ChangeLog: * io/list_read.c: Add a check for a comma after a namelist name in read input. Issue a runtime error message. gcc/testsuite/ChangeLog: * gfortran.dg/pr109662.f90: New test. --------------zqBrp0PDK0SfH0hM1FKF7Jkv Content-Type: text/x-patch; charset=UTF-8; name="mysubmit.diff" Content-Disposition: attachment; filename="mysubmit.diff" Content-Transfer-Encoding: base64 ZGlmZiAtLWdpdCBhL2djYy90ZXN0c3VpdGUvZ2ZvcnRyYW4uZGcvcHIxMDk2NjIuZjkwIGIv Z2NjL3Rlc3RzdWl0ZS9nZm9ydHJhbi5kZy9wcjEwOTY2Mi5mOTAKbmV3IGZpbGUgbW9kZSAx MDA2NDQKaW5kZXggMDAwMDAwMDAwMDAuLjk4OGNmYWI3M2NjCi0tLSAvZGV2L251bGwKKysr IGIvZ2NjL3Rlc3RzdWl0ZS9nZm9ydHJhbi5kZy9wcjEwOTY2Mi5mOTAKQEAgLTAsMCArMSwx NSBAQAorISB7IGRnLWRvIHJ1biB9CishIHsgZGctb3B0aW9ucyAiLXN0ZD1mMjAwMyIgfQor ISBQUjEwOTY2MiBhIGNvbW1hIGFmdGVyIG5hbWVsaXN0IG5hbWUgYWNjZXB0ZWQgb24gaW5w dXQuIAorcHJvZ3JhbSB0ZXN0bm1scmVhZAorICBpbXBsaWNpdCBub25lCisgIGNoYXJhY3Rl cigxNikgOjogbGlzdCA9ICcmc3R1ZmYsIG4gPSA3NTkvJworICBjaGFyYWN0ZXIoMTAwKTo6 bWVzc2FnZQorICBpbnRlZ2VyICAgICAgIDo6IG4sIGlvcmVzdWx0CisgIG5hbWVsaXN0L3N0 dWZmL24KKyAgbWVzc2FnZSA9ICIiCisgIGlvcmVzdWx0ID0gMAorICBuID0gOTkKKyAgcmVh ZChsaXN0LG5tbD1zdHVmZixpb3N0YXQ9aW9yZXN1bHQpCisgIGlmIChpb3Jlc3VsdCA9PSAw KSBTVE9QIDEzCitlbmQgcHJvZ3JhbSB0ZXN0bm1scmVhZApkaWZmIC0tZ2l0IGEvbGliZ2Zv cnRyYW4vaW8vbGlzdF9yZWFkLmMgYi9saWJnZm9ydHJhbi9pby9saXN0X3JlYWQuYwppbmRl eCAxMDkzMTNjMTViMS4uNzhiZmQ5ZTg3ODcgMTAwNjQ0Ci0tLSBhL2xpYmdmb3J0cmFuL2lv L2xpc3RfcmVhZC5jCisrKyBiL2xpYmdmb3J0cmFuL2lvL2xpc3RfcmVhZC5jCkBAIC0zNTk2 LDggKzM1OTYsMTIgQEAgZmluZF9ubWxfbmFtZToKICAgaWYgKGR0cC0+dS5wLm5tbF9yZWFk X2Vycm9yKQogICAgIGdvdG8gZmluZF9ubWxfbmFtZTsKIAotICAvKiBBIHRyYWlsaW5nIHNw YWNlIGlzIHJlcXVpcmVkLCB3ZSBnaXZlIGEgbGl0dGxlIGxhdGl0dWRlIGhlcmUsIDEwLjku MS4gICovCisgIC8qIEEgdHJhaWxpbmcgc3BhY2UgaXMgcmVxdWlyZWQsIHdlIGFsbG93IGEg Y29tbWEgd2l0aCBzdGQ9Z251LiAgKi8KICAgYyA9IG5leHRfY2hhciAoZHRwKTsKKyAgaWYg KGMgPT0gJywnICYmICEoY29tcGlsZV9vcHRpb25zLmFsbG93X3N0ZCAmIEdGQ19TVERfR05V KSkKKyAgICBnZW5lcmF0ZV9lcnJvciAoJmR0cC0+Y29tbW9uLCBMSUJFUlJPUl9SRUFEX1ZB TFVFLAorCQkgICAgIkNvbW1hIGFmdGVyIG5hbWVsaXN0IG5hbWUgbm90IGFsbG93ZWQiKTsK KwogICBpZiAoIWlzX3NlcGFyYXRvcihjKSAmJiBjICE9ICchJykKICAgICB7CiAgICAgICB1 bmdldF9jaGFyIChkdHAsIGMpOwo= --------------zqBrp0PDK0SfH0hM1FKF7Jkv--