Fix gfortran.dg/gomp/task-detach-1.f90 for non 64bit pointers

gcc/testsuite/ChangeLog:

	PR fortran/98763
	* gfortran.dg/gomp/task-detach-1.f90: Use integer(1) to avoid
	missing diagnostic issues with c_intptr_t == default integer kind.

(cherry picked from commit a95538b6c5a9ea480e341da9ca8fbf201417dba5)

diff --git a/gcc/testsuite/ChangeLog.omp b/gcc/testsuite/ChangeLog.omp
index a00749e988e6b250c5eb38e02fe5a4d9f7913d5a..87b0e1e4a7e935dd106f7ecf807ffe6f97cfff96 100644 (file)
--- a/gcc/testsuite/ChangeLog.omp
+++ b/gcc/testsuite/ChangeLog.omp
@@ -1,3 +1,12 @@
+2021-01-22  Kwok Cheung Yeung  <kcy@codesourcery.com>
+
+       Backport from mainline
+       2021-01-20  Tobias Burnus <tobias@codesourcery.com>
+
+       PR fortran/98763
+       * gfortran.dg/gomp/task-detach-1.f90: Use integer(1) to avoid
+       missing diagnostic issues with c_intptr_t == default integer kind.
+
 2021-01-22  Kwok Cheung Yeung  <kcy@codesourcery.com>
 
        Backport from mainline

diff --git a/gcc/testsuite/gfortran.dg/gomp/task-detach-1.f90 b/gcc/testsuite/gfortran.dg/gomp/task-detach-1.f90
index 4763f13ba8409b9b665efa4b6146280f37d239ce..020be13a8b6834ffbefaa559346083679cd77050 100644 (file)
--- a/gcc/testsuite/gfortran.dg/gomp/task-detach-1.f90
+++ b/gcc/testsuite/gfortran.dg/gomp/task-detach-1.f90
@@ -7,7 +7,7 @@ program task_detach_1
   
   integer, parameter :: omp_event_handle_kind = c_intptr_t
   integer (kind=omp_event_handle_kind) :: x, y
-  integer :: z
+  integer(1) :: z
   
   !$omp task detach(x) detach(y) ! { dg-error "Failed to match clause at \\\(1\\\)" }
   !$omp end task ! { dg-error "Unexpected !\\\$OMP END TASK statement at \\\(1\\\)" }