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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@277000 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 5e3c78e11adb8a9afeb56076d9926d14e4422999..1dbc890f5dab58e5187892a0f2f65dafd0c7bf61 100644 (file)
--- 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 cd28384589cdef7fb6f91b9ebfdea5ed621f75d7..5c91fcdfd3195afec96135bfe8ad6f2e988fdc91 100644 (file)
--- 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