On 18.01.21 17:56, Tobias Burnus wrote:
While testing, it turned out that 'is_device_ptr(aa,bb,cc,dd) was
accepted
as only the first list item was checked – giving later an ICE in the ME.
... and as PR fortran/98757 showed, I forgot a 'git add' before committing
the associated testcase, given that I already had locally the following
patch ...
Committed as Rev. r11-6809-gc05cdfb3f6335d55226cef7917a783498aa41244
Tobias
-----------------
Mentor Graphics (Deutschland) GmbH, Arnulfstraße 201, 80634 München / Germany
Registergericht München HRB 106955, Geschäftsführer: Thomas Heurung, Alexander
Walter
commit c05cdfb3f6335d55226cef7917a783498aa41244
Author: Tobias Burnus <tob...@codesourcery.com>
Date: Wed Jan 20 08:31:30 2021 +0100
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.
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 bf498208aa8..7adc6f6e8e1 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
