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.
This commit is contained in:
Hafiz Abid Qadeer 2022-01-17 13:45:08 +00:00
parent a81f609235
commit deb9f18f67

View File

@ -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