Fix testsuite-fallout of OpenACC deep-copy patch

        gcc/testsuite/
        * gfortran.dg/goacc/data-clauses.f95: Remove now
        obsolete dg-error.

From-SVN: r279634

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index ee072ab..7773059 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2019-12-20  Tobias Burnus  <tobias@codesourcery.com>
+
+       * gfortran.dg/goacc/data-clauses.f95: Remove now
+       obsolete dg-error.
+
 2019-12-20  Jakub Jelinek  <jakub@redhat.com>
 
        PR target/92841
@@ -8,11 +13,11 @@
 
 2019-12-19  Julian Brown  <julian@codesourcery.com>
 
-        * gfortran.dg/goacc/derived-types.f90: New test.
-        * gfortran.dg/goacc/derived-types-2.f90: New test.
-        * gfortran.dg/goacc/derived-types-3.f90: New test.
-        * gfortran.dg/goacc/data-clauses.f95: Adjust for expected errors.
-        * gfortran.dg/goacc/enter-exit-data.f95: Likewise.
+       * gfortran.dg/goacc/derived-types.f90: New test.
+       * gfortran.dg/goacc/derived-types-2.f90: New test.
+       * gfortran.dg/goacc/derived-types-3.f90: New test.
+       * gfortran.dg/goacc/data-clauses.f95: Adjust for expected errors.
+       * gfortran.dg/goacc/enter-exit-data.f95: Likewise.
 
 2019-12-19  Julian Brown  <julian@codesourcery.com>
            Cesar Philippidis  <cesar@codesourcery.com>

diff --git a/gcc/testsuite/gfortran.dg/goacc/data-clauses.f95 b/gcc/testsuite/gfortran.dg/goacc/data-clauses.f95
index cc68e40..fe32f1e 100644 (file)
--- a/gcc/testsuite/gfortran.dg/goacc/data-clauses.f95
+++ b/gcc/testsuite/gfortran.dg/goacc/data-clauses.f95
@@ -111,9 +111,9 @@ contains
   !$acc end data
 
 
-  !$acc parallel no_create (tip) ! { dg-error "POINTER" }
+  !$acc parallel no_create (tip)
   !$acc end parallel
-  !$acc parallel no_create (tia) ! { dg-error "ALLOCATABLE" }
+  !$acc parallel no_create (tia)
   !$acc end parallel
   !$acc parallel deviceptr (i) no_create (i) ! { dg-error "multiple clauses" }
   !$acc end parallel
@@ -132,7 +132,7 @@ contains
   !$acc end data
 
 
-  !$acc parallel present (tip) ! { dg-error "POINTER" }
+  !$acc parallel present (tip)
   !$acc end parallel
   !$acc parallel present (tia)
   !$acc end parallel