From 2a0cb1644c8431660f24f25aa82118f86d7f9627 Mon Sep 17 00:00:00 2001 From: James Norris Date: Tue, 15 Oct 2019 14:13:01 +0000 Subject: [PATCH] [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 From-SVN: r277000 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/openmp.c | 4 ---- 2 files changed, 6 insertions(+), 4 deletions(-) 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 + Tobias Burnus + + PR fortran/65438 + * openmp.c (check_array_not_assumed): Remove pointer check. + 2019-10-14 Steven G. Kargl 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 -- 2.30.2