From: Tobias Burnus <tobias@codesourcery.com>
Date: Wed, 20 Jan 2021 07:31:30 +0000 (+0100)
Subject: OpenMP/Fortran: Fix gfortran.dg/gomp/is_device_ptr-2.f90
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=c05cdfb3f6335d55226cef7917a783498aa41244;p=gcc.git

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