diff options
| author | James Norris <jnorris@codesourcery.com> | 2019-10-15 14:13:01 +0000 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2019-10-15 16:13:01 +0200 |
| commit | 2a0cb1644c8431660f24f25aa82118f86d7f9627 (patch) | |
| tree | e6dc954e08f88ff6f4dae37400100cf62272fe06 /gcc/fortran/openmp.c | |
| parent | 855b85b4e705df7f0bf893b00f4e8c10a2c6bcec (diff) | |
| download | gcc-2a0cb1644c8431660f24f25aa82118f86d7f9627.zip gcc-2a0cb1644c8431660f24f25aa82118f86d7f9627.tar.gz gcc-2a0cb1644c8431660f24f25aa82118f86d7f9627.tar.bz2 | |
[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
Diffstat (limited to 'gcc/fortran/openmp.c')
| -rw-r--r-- | gcc/fortran/openmp.c | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index cd28384..5c91fcd 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 |