From a95538b6c5a9ea480e341da9ca8fbf201417dba5 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Wed, 20 Jan 2021 11:27:26 +0100 Subject: [PATCH] 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. --- gcc/testsuite/gfortran.dg/gomp/task-detach-1.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/testsuite/gfortran.dg/gomp/task-detach-1.f90 b/gcc/testsuite/gfortran.dg/gomp/task-detach-1.f90 index 4763f13ba84..020be13a8b6 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\\\)" } -- 2.30.2