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.

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\\\)" }