From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 49258 invoked by alias); 15 Feb 2018 20:04:00 -0000 Mailing-List: contact fortran-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Post: List-Help: , Sender: fortran-owner@gcc.gnu.org Received: (qmail 49231 invoked by uid 89); 15 Feb 2018 20:03:59 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-10.0 required=5.0 tests=AWL,BAYES_00,FREEMAIL_ENVFROM_END_DIGIT,FREEMAIL_FROM,GIT_PATCH_2,GIT_PATCH_3,KAM_ASCII_DIVIDERS,RCVD_IN_DNSWL_NONE,SPF_PASS autolearn=ham version=3.3.2 spammy=curing X-Spam-User: qpsmtpd, 2 recipients X-HELO: mail-yw0-f182.google.com Received: from mail-yw0-f182.google.com (HELO mail-yw0-f182.google.com) (209.85.161.182) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Thu, 15 Feb 2018 20:03:57 +0000 Received: by mail-yw0-f182.google.com with SMTP id b16so597782ywh.12; Thu, 15 Feb 2018 12:03:57 -0800 (PST) X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:sender:from:date:message-id:subject :to; bh=guj3aW21MIzbIR1MO30LNv8XYObG56q8V0u5uiV7pbw=; b=myZ0BjQIPc/rIYA9cvRsEKUF1IvPaOB5LiI4zAaFXxPgmrhwNPH8pgm6KXQqDg0rJj 3p4nPa52SxL3x45AZCHl86wZu9vsWkriTjzjNaYGdQlWKky31xAGdURgq8YP+54CzXpB ytkWTTfls4bdq438nyqU1jH/8Y0FdHfTycR45RKkyIFToeskJPNDunfRfcQ/8rID4Z5D 7KPDzdKCW2qMsSvg6XpiqWPS7ZqIEwStwgILlrHg65J23nZCsksMHAHj4hmf2lxPUEcm P+AKH3EI9a8bU3xRdekPBczzAiFs9f5Li/muD7AWzYOczd8OakEIFmC+Kw7gI8vrOG1P Jo1w== X-Gm-Message-State: APf1xPCJNVfwAv7CucWKLM3Zh8qkxF8kFB4DOlqGDFwVHnUO98PjOCkQ zlAZ1z0KG0NFfze0tumHpqYnF1KhYi9/gDFICD+fUQ== X-Google-Smtp-Source: AH8x225wAD0loaRnLTVq8fRqngYLuusT93EAyknNHOgjTJ9eiQwGtSV9U1MSJiuUV7K8JtbK3kx/4IliUCknjHbGnAY= X-Received: by 10.129.198.1 with SMTP id l1mr3015878ywi.398.1518725035631; Thu, 15 Feb 2018 12:03:55 -0800 (PST) MIME-Version: 1.0 Received: by 10.129.146.71 with HTTP; Thu, 15 Feb 2018 12:03:55 -0800 (PST) From: Janus Weil Date: Thu, 15 Feb 2018 20:04:00 -0000 Message-ID: Subject: [Patch, Fortran, F03] PR 84409: check DTIO arguments for character len To: gfortran , gcc-patches Content-Type: multipart/mixed; boundary="94eb2c1a48e842cb8e056545ba5e" X-IsSubscribed: yes X-SW-Source: 2018-02/txt/msg00100.txt.bz2 --94eb2c1a48e842cb8e056545ba5e Content-Type: text/plain; charset="UTF-8" Content-length: 533 Hi all, attached is another simple patch for an accepts-invalid problem (this time concerning DTIO), also curing an invalid test case. Regtests cleanly on x86_64-linux-gnu. Ok for trunk? Cheers, Janus 2018-02-15 Janus Weil PR fortran/84409 * interface.c (check_dtio_arg_TKR_intent): Add a check for character length. 2018-02-15 Janus Weil PR fortran/84409 * gfortran.dg/dtio_21.f03: Add an error message. * gfortran.dg/dtio_22.f90: Fix invalid test case. --94eb2c1a48e842cb8e056545ba5e Content-Type: text/plain; charset="US-ASCII"; name="pr84409.diff" Content-Disposition: attachment; filename="pr84409.diff" Content-Transfer-Encoding: base64 X-Attachment-Id: f_jdoxlj8i0 Content-length: 2806 SW5kZXg6IGdjYy9mb3J0cmFuL2ludGVyZmFjZS5jCj09PT09PT09PT09PT09 PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09 PT09PT09PT0KLS0tIGdjYy9mb3J0cmFuL2ludGVyZmFjZS5jCShyZXZpc2lv biAyNTc2NzIpCisrKyBnY2MvZm9ydHJhbi9pbnRlcmZhY2UuYwkod29ya2lu ZyBjb3B5KQpAQCAtNDcwMiw2ICs0NzAyLDEwIEBAIGNoZWNrX2R0aW9fYXJn X1RLUl9pbnRlbnQgKGdmY19zeW1ib2wgKmZzeW0sIGJvb2wKICAgICBnZmNf ZXJyb3IgKCJEVElPIGR1bW15IGFyZ3VtZW50IGF0ICVMIG11c3QgYmUgYW4g IgogCSAgICAgICAiQVNTVU1FRCBTSEFQRSBBUlJBWSIsICZmc3ltLT5kZWNs YXJlZF9hdCk7CiAKKyAgaWYgKHR5cGUgPT0gQlRfQ0hBUkFDVEVSICYmIGZz eW0tPnRzLnUuY2wtPmxlbmd0aCAhPSBOVUxMKQorICAgIGdmY19lcnJvciAo IkRUSU8gY2hhcmFjdGVyIGFyZ3VtZW50IGF0ICVMIG11c3QgaGF2ZSBhc3N1 bWVkIGxlbmd0aCIsCisgICAgICAgICAgICAgICAmZnN5bS0+ZGVjbGFyZWRf YXQpOworCiAgIGlmIChmc3ltLT5hdHRyLmludGVudCAhPSBpbnRlbnQpCiAg ICAgZ2ZjX2Vycm9yICgiRFRJTyBkdW1teSBhcmd1bWVudCBhdCAlTCBtdXN0 IGhhdmUgSU5URU5UICVzIiwKIAkgICAgICAgJmZzeW0tPmRlY2xhcmVkX2F0 LCBnZmNfY29kZTJzdHJpbmcgKGludGVudHMsIChpbnQpaW50ZW50KSk7Cklu ZGV4OiBnY2MvdGVzdHN1aXRlL2dmb3J0cmFuLmRnL2R0aW9fMjEuZjkwCj09 PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09 PT09PT09PT09PT09PT09PT09PT0KLS0tIGdjYy90ZXN0c3VpdGUvZ2ZvcnRy YW4uZGcvZHRpb18yMS5mOTAJKHJldmlzaW9uIDI1NzY3MikKKysrIGdjYy90 ZXN0c3VpdGUvZ2ZvcnRyYW4uZGcvZHRpb18yMS5mOTAJKHdvcmtpbmcgY29w eSkKQEAgLTE5LDEwICsxOSwxMCBAQCBwcm9ncmFtIHAKICAgIGFsbG9jYXRl KHoyKQogICAgcHJpbnQgKiwgejIKICAgY29udGFpbnMKLSAgIHN1YnJvdXRp bmUgd2YyKHRoaXMsIGEsIGIsIGMsIGQsIGUpCisgICBzdWJyb3V0aW5lIHdm Mih0aGlzLCBhLCBiLCBjLCBkLCBlKSAgISB7IGRnLWVycm9yICJtdXN0IGhh dmUgYXNzdW1lZCBsZW5ndGgiIH0KICAgICAgIGNsYXNzKHQyKSwgaW50ZW50 KGluKSA6OiB0aGlzCiAgICAgICBpbnRlZ2VyLCBpbnRlbnQoaW4pIDo6IGEK LSAgICAgIGNoYXJhY3RlciwgaW50ZW50KGluKSA6OiBiCisgICAgICBjaGFy YWN0ZXIoKiksIGludGVudChpbikgOjogYgogICAgICAgaW50ZWdlciwgaW50 ZW50KGluKSA6OiBjKDopCiAgICAgICBpbnRlZ2VyLCBpbnRlbnQob3V0KSA6 OiBkCiAgICAgICBjaGFyYWN0ZXIsIGludGVudChpbm91dCkgOjogZQpJbmRl eDogZ2NjL3Rlc3RzdWl0ZS9nZm9ydHJhbi5kZy9kdGlvXzIyLmY5MAo9PT09 PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09 PT09PT09PT09PT09PT09PT09Ci0tLSBnY2MvdGVzdHN1aXRlL2dmb3J0cmFu LmRnL2R0aW9fMjIuZjkwCShyZXZpc2lvbiAyNTc2NzIpCisrKyBnY2MvdGVz dHN1aXRlL2dmb3J0cmFuLmRnL2R0aW9fMjIuZjkwCSh3b3JraW5nIGNvcHkp CkBAIC0xNSwxMCArMTUsMTAgQEAgY29udGFpbnMKICAgc3Vicm91dGluZSB3 Zih0aGlzLCB1bml0LCBiLCBjLCBpb3N0YXQsIGlvbXNnKQogICAgIGNsYXNz KHQpLCBpbnRlbnQoaW4pIDo6IHRoaXMKICAgICBpbnRlZ2VyLCBpbnRlbnQo aW4pIDo6IHVuaXQKLSAgICBjaGFyYWN0ZXIsIGludGVudChpbikgOjogYgor ICAgIGNoYXJhY3RlcigqKSwgaW50ZW50KGluKSA6OiBiCiAgICAgaW50ZWdl ciwgaW50ZW50KGluKSA6OiBjKDopCiAgICAgaW50ZWdlciwgaW50ZW50KG91 dCkgOjogaW9zdGF0Ci0gICAgY2hhcmFjdGVyLCBpbnRlbnQoaW5vdXQpIDo6 IGlvbXNnCisgICAgY2hhcmFjdGVyKCopLCBpbnRlbnQoaW5vdXQpIDo6IGlv bXNnCiAgICAgd3JpdGUgKHVuaXQsICIoaTMpIiwgSU9TVEFUPWlvc3RhdCwg SU9NU0c9aW9tc2cpIHRoaXMlaQogICBlbmQgc3Vicm91dGluZQogZW5kCg== --94eb2c1a48e842cb8e056545ba5e--