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:
parent
a81f609235
commit
deb9f18f67
@ -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
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user