From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1820) id 4AE9C385801D; Mon, 17 Jan 2022 14:07:17 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 4AE9C385801D MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: Hafiz Abid Qadeer To: gcc-cvs@gcc.gnu.org Subject: [gcc r12-6639] Change kind of integer literal to fix a testcase. X-Act-Checkin: gcc X-Git-Author: Hafiz Abid Qadeer X-Git-Refname: refs/heads/master X-Git-Oldrev: a81f6092350cf2c8fc3e3cefc61af7a1649ae030 X-Git-Newrev: deb9f18f67788c36f4652bca101d93faf07ecf39 Message-Id: <20220117140717.4AE9C385801D@sourceware.org> Date: Mon, 17 Jan 2022 14:07:17 +0000 (GMT) X-BeenThere: gcc-cvs@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-cvs mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Mon, 17 Jan 2022 14:07:17 -0000 https://gcc.gnu.org/g:deb9f18f67788c36f4652bca101d93faf07ecf39 commit r12-6639-gdeb9f18f67788c36f4652bca101d93faf07ecf39 Author: Hafiz Abid Qadeer Date: Mon Jan 17 13:45:08 2022 +0000 Change kind of integer literal to fix a testcase. As Thomas reported in https://gcc.gnu.org/pipermail/gcc-patches/2022-January/588448.html a test added in my recent allocate clause patch fails on m32. It was due to default kind for integer matching c_intptr_t for m32. I have now changed it to 0_1 so that always integer with kind=1 is used. gcc/testsuite/ChangeLog: * gfortran.dg/gomp/allocate-2.f90: Change 0 to 0_1. Diff: --- gcc/testsuite/gfortran.dg/gomp/allocate-2.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/testsuite/gfortran.dg/gomp/allocate-2.f90 b/gcc/testsuite/gfortran.dg/gomp/allocate-2.f90 index 88b2d26872d..657ff44d023 100644 --- a/gcc/testsuite/gfortran.dg/gomp/allocate-2.f90 +++ b/gcc/testsuite/gfortran.dg/gomp/allocate-2.f90 @@ -33,7 +33,7 @@ subroutine foo(x) x=5 !$omp end parallel - !$omp parallel allocate (0: x) private(x) ! { dg-error "Expected integer expression of the 'omp_allocator_handle_kind' kind at .1." } + !$omp parallel allocate (0_1: x) private(x) ! { dg-error "Expected integer expression of the 'omp_allocator_handle_kind' kind at .1." } x=6 !$omp end parallel