diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2021-01-20 08:31:30 +0100 |
|---|---|---|
| committer | Tobias Burnus <tobias@codesourcery.com> | 2021-01-20 08:35:18 +0100 |
| commit | c05cdfb3f6335d55226cef7917a783498aa41244 (patch) | |
| tree | ec8f1dfa1a390282bbc2b2e555991df85d54f32e /gcc | |
| parent | b83604c75fee324cc4767d039178cba2fbbe017e (diff) | |
| download | gcc-c05cdfb3f6335d55226cef7917a783498aa41244.zip gcc-c05cdfb3f6335d55226cef7917a783498aa41244.tar.gz gcc-c05cdfb3f6335d55226cef7917a783498aa41244.tar.bz2 | |
OpenMP/Fortran: Fix gfortran.dg/gomp/is_device_ptr-2.f90
gcc/testsuite/ChangeLog:
PR fortran/98757
PR fortran/98476
* gfortran.dg/gomp/is_device_ptr-2.f90: Fix dg-error.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/gomp/is_device_ptr-2.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/gomp/is_device_ptr-2.f90 b/gcc/testsuite/gfortran.dg/gomp/is_device_ptr-2.f90 index bf49820..7adc6f6 100644 --- a/gcc/testsuite/gfortran.dg/gomp/is_device_ptr-2.f90 +++ b/gcc/testsuite/gfortran.dg/gomp/is_device_ptr-2.f90 @@ -8,7 +8,7 @@ subroutine abc(cc) !$omp target enter data map(to: cc, dd) !$omp target data use_device_addr(cc) use_device_ptr(dd) - !$omp target is_device_ptr(cc, dd) ! { dg-error "Non-dummy object 'cc' in IS_DEVICE_PTR clause at" } + !$omp target is_device_ptr(cc, dd) ! { dg-error "Non-dummy object 'dd' in IS_DEVICE_PTR clause at" } if (cc /= 131 .or. dd /= 484) stop 1 cc = 44 dd = 45 |