diff options
| author | Julian Brown <julian@codesourcery.com> | 2019-12-20 01:39:49 +0000 |
|---|---|---|
| committer | Julian Brown <jules@gcc.gnu.org> | 2019-12-20 01:39:49 +0000 |
| commit | 9be3ac5d63f0f0d79d220bb3a10842b28a1e48ad (patch) | |
| tree | c4426113e90ebe5b42363af5610987218e468d1b /gcc/fortran/openmp.c | |
| parent | 02817027ca02f32cfd4fbaa71edf879a024089a3 (diff) | |
| download | gcc-9be3ac5d63f0f0d79d220bb3a10842b28a1e48ad.zip gcc-9be3ac5d63f0f0d79d220bb3a10842b28a1e48ad.tar.gz gcc-9be3ac5d63f0f0d79d220bb3a10842b28a1e48ad.tar.bz2 | |
Fortran polymorphic class-type support for OpenACC
gcc/fortran/
* openmp.c (resolve_oacc_data_clauses): Don't disallow allocatable
polymorphic types for OpenACC.
* trans-openmp.c (gfc_trans_omp_clauses): Support polymorphic class
types.
libgomp/
* testsuite/libgomp.oacc-fortran/class-ptr-param.f95: New test.
* testsuite/libgomp.oacc-fortran/classtypes-1.f95: New test.
* testsuite/libgomp.oacc-fortran/classtypes-2.f95: New test.
From-SVN: r279631
Diffstat (limited to 'gcc/fortran/openmp.c')
| -rw-r--r-- | gcc/fortran/openmp.c | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index 97d90ef..051b4bd 100644 --- a/gcc/fortran/openmp.c +++ b/gcc/fortran/openmp.c @@ -3929,12 +3929,6 @@ check_array_not_assumed (gfc_symbol *sym, locus loc, const char *name) static void resolve_oacc_data_clauses (gfc_symbol *sym, locus loc, const char *name) { - if ((sym->ts.type == BT_ASSUMED && sym->attr.allocatable) - || (sym->ts.type == BT_CLASS && CLASS_DATA (sym) - && CLASS_DATA (sym)->attr.allocatable)) - gfc_error ("ALLOCATABLE object %qs of polymorphic type " - "in %s clause at %L", sym->name, name, &loc); - check_symbol_not_pointer (sym, loc, name); check_array_not_assumed (sym, loc, name); } |