From: Tobias Burnus <tobias@codesourcery.com>
Date: Wed, 20 Jan 2021 10:27:26 +0000 (+0100)
Subject: Fix gfortran.dg/gomp/task-detach-1.f90 for non 64bit pointers
X-Git-Tag: basepoints/gcc-12~1444
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a95538b6c5a9ea480e341da9ca8fbf201417dba5;p=thirdparty%2Fgcc.git

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 4763f13ba840..020be13a8b68 100644
--- 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\\\)" }