diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2021-01-20 11:27:26 +0100 |
|---|---|---|
| committer | Tobias Burnus <tobias@codesourcery.com> | 2021-01-20 11:27:26 +0100 |
| commit | a95538b6c5a9ea480e341da9ca8fbf201417dba5 (patch) | |
| tree | 6b61cf23130aef8a7a81eaa5c4bc677f0b223442 /gcc | |
| parent | 4d2ecd960a0c0e7656043b9c162fcac6d7e5ac3f (diff) | |
| download | gcc-a95538b6c5a9ea480e341da9ca8fbf201417dba5.zip gcc-a95538b6c5a9ea480e341da9ca8fbf201417dba5.tar.gz gcc-a95538b6c5a9ea480e341da9ca8fbf201417dba5.tar.bz2 | |
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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/gomp/task-detach-1.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/gomp/task-detach-1.f90 b/gcc/testsuite/gfortran.dg/gomp/task-detach-1.f90 index 4763f13..020be13 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\\\)" } |