From: James Norris <jnorris@codesourcery.com>
Date: Tue, 15 Oct 2019 14:13:01 +0000 (+0000)
Subject: [Fortran] OpenMP+OpenACC: Remove bogus contigous-pointer check
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=2a0cb1644c8431660f24f25aa82118f86d7f9627;p=gcc.git

[Fortran] OpenMP+OpenACC: Remove bogus contigous-pointer check

        gcc/fortran
        PR fortran/65438
        * openmp.c (check_array_not_assumed): Remove pointer check.


Co-Authored-By: Tobias Burnus <tobias@codesourcery.com>

From-SVN: r277000
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 5e3c78e11ad..1dbc890f5da 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2019-10-15  James Norris  <jnorris@codesourcery.com>
+	    Tobias Burnus  <tobias@codesourcery.com>
+
+	PR fortran/65438
+	* openmp.c (check_array_not_assumed): Remove pointer check.
+
 2019-10-14  Steven G. Kargl  <kargl@gcc.gnu.org>
 
 	PR fortran/89943
diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c
index cd28384589c..5c91fcdfd31 100644
--- a/gcc/fortran/openmp.c
+++ b/gcc/fortran/openmp.c
@@ -3861,10 +3861,6 @@ check_array_not_assumed (gfc_symbol *sym, locus loc, const char *name)
   if (sym->as && sym->as->type == AS_ASSUMED_RANK)
     gfc_error ("Assumed rank array %qs in %s clause at %L",
 	       sym->name, name, &loc);
-  if (sym->as && sym->as->type == AS_DEFERRED && sym->attr.pointer
-      && !sym->attr.contiguous)
-    gfc_error ("Noncontiguous deferred shape array %qs in %s clause at %L",
-	       sym->name, name, &loc);
 }
 
 static void