From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from smtp1-g21.free.fr (smtp1-g21.free.fr [IPv6:2a01:e0c:1:1599::10]) by sourceware.org (Postfix) with ESMTPS id F1EE23850414 for ; Sun, 20 Dec 2020 13:00:34 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.3.2 sourceware.org F1EE23850414 Authentication-Results: sourceware.org; dmarc=none (p=none dis=none) header.from=free.fr Authentication-Results: sourceware.org; spf=none smtp.mailfrom=dhumieres.dominique@free.fr Received: from webmail.free.fr (unknown [172.20.243.6]) by smtp1-g21.free.fr (Postfix) with ESMTP id 802C0B0051B; Sun, 20 Dec 2020 14:00:33 +0100 (CET) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=free.fr; s=smtp-20201208; t=1608469233; bh=OqoXihNeYozaE0kKlG72tn0Gv8DDgk76h8JStWYVNZs=; h=Date:From:To:Cc:Subject:From; b=Dq7F8ZGlWhXIsZ7FUYdswiX77H/ycGaHMLry4KhvyjHBiZFGmd5/C2yMquUeaNejK EbwuYW7wdutgkUMywin+yy2J3dDaCcRT48Kpz/LVvHxeDAHbQ2WtRZMffrUC+pIUHj k6wf5eByYvCKyL8bQeR650JLhUzrXLMhL7cNnQ2PONJTWxg3iiRyTIHDVGBXOvgaCd iWP1mmqr8VNm2pm2CELhQGkX/Pg7L/QlsX9egaWHG5Ng1/1NyITyXge+P8Cs134HPe 8O0Rhlic3IpXLzwzrhkniMeK8++hEDQ1M7V2IaRU3i2AXOMV2EFv4yZgvpC0OHKxkI 0XOfadgOg2HrA== Received: from 2a01:e35:2f22:f0a0:f9ea:e317:d050:4868 by webmail.free.fr MIME-Version: 1.0 Content-Type: text/plain; charset=US-ASCII; format=flowed Content-Transfer-Encoding: 7bit Date: Sun, 20 Dec 2020 14:00:33 +0100 From: dhumieres.dominique@free.fr To: paul.richard.thomas@gmail.com Cc: fortran@gcc.gnu.org Subject: [r11-6253 Regression] FAIL: gfortran.dg/unlimited_polymorphic_32.f03 -Os execution test on Linux/x86_64 Message-ID: X-Sender: dhumieres.dominique@free.fr User-Agent: Webmail Free/1.3.3 X-Spam-Status: No, score=1.4 required=5.0 tests=BAYES_00, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, DKIM_VALID_EF, FREEMAIL_FROM, KAM_NUMSUBJECT, SPF_HELO_NONE, SPF_NONE, TXREP, UNPARSEABLE_RELAY autolearn=no autolearn_force=no version=3.4.2 X-Spam-Level: * X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on server2.sourceware.org X-BeenThere: fortran@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Fortran mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Sun, 20 Dec 2020 13:00:37 -0000 Hi Paul, I confirme the problem with -m32. With the following changes: % diff -up /opt/gcc/work/gcc/testsuite/gfortran.dg/unlimited_polymorphic_32.f03 unlimited_polymorphic_32_db.f03 --- /opt/gcc/work/gcc/testsuite/gfortran.dg/unlimited_polymorphic_32.f03 2020-12-19 12:39:07.000000000 +0100 +++ unlimited_polymorphic_32_db.f03 2020-12-20 13:52:36.000000000 +0100 @@ -17,8 +17,8 @@ contains subroutine driver class(*), allocatable :: obj type(Wrapper) w - integer(4) :: expected4(2) = [42_4, 43_4] - integer(8) :: expected8(3) = [42_8, 43_8, 44_8] + integer(4) :: expected4(3) = [42_4, 43_4, 44_4] + integer(8) :: expected8(5) = [42_8, 43_8, 44_8, 45_8, 46_8] w = new_wrapper (expected4) obj = w @@ -42,18 +42,18 @@ contains type is (wrapper) select type (z => arg%elements) type is (integer(4)) - if (any (z .ne. [42_4, 43_4])) stop 1 + idx + if (any (z .ne. [42_4, 43_4, 44_4])) stop 1 + idx type is (integer(8)) - if (any (z .ne. [42_8, 43_8, 44_8])) stop 1 + idx + if (any (z .ne. [42_8, 43_8, 44_8, 45_8, 46_8])) print *, z type is (Mytype) - if (abs (z(1)%r - 99.0) .ge. 1e-6) stop 1 + idx + if (abs (z(1)%r - 99.0) .ge. 1e-6) stop 3 + idx class default stop 2 + idx end select type is (Mytype) - if (abs (arg%r - 42.0) .ge. 1e-6) stop 1 + idx + if (abs (arg%r - 42.0) .ge. 1e-6) stop 4 + idx class default - stop 3 + idx + stop 5 + idx end select end subroutine end I get % gfc unlimited_polymorphic_32_db.f03 -m32 % ./a.out 42 43 44 45 42