diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2019-02-19 17:55:33 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2019-02-19 17:55:33 +0000 |
| commit | 9d52e1bbd8382e3eca924ebefdcedda62bd0eeb5 (patch) | |
| tree | 89e68ed04fe51932a7ab89dde88cb80e8b980e89 /gcc/fortran/trans-expr.c | |
| parent | fe95aee9ce0a163194d4c986d15bd2b8f2abed3d (diff) | |
| download | gcc-9d52e1bbd8382e3eca924ebefdcedda62bd0eeb5.zip gcc-9d52e1bbd8382e3eca924ebefdcedda62bd0eeb5.tar.gz gcc-9d52e1bbd8382e3eca924ebefdcedda62bd0eeb5.tar.bz2 | |
re PR fortran/89384 (CONTIGUOUS dummy argument in BIND(C) interface incorrect when actual is non-contiguous)
2019-02-19 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/89384
* trans-expr.c (gfc_conv_gfc_desc_to_cfi_desc): If the dummy
argument is contiguous and the actual argument may not be,
use gfc_conv_subref_array_arg.
2019-02-19 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/89384
* gfortran.dg/ISO_Fortran_binding_4.f90
From-SVN: r269024
Diffstat (limited to 'gcc/fortran/trans-expr.c')
| -rw-r--r-- | gcc/fortran/trans-expr.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index a75f8a7..223fd14 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -4944,7 +4944,12 @@ gfc_conv_gfc_desc_to_cfi_desc (gfc_se *parmse, gfc_expr *e, gfc_symbol *fsym) if (e->rank != 0) { - gfc_conv_expr_descriptor (parmse, e); + if (fsym->attr.contiguous + && !gfc_is_simply_contiguous (e, false, true)) + gfc_conv_subref_array_arg (parmse, e, false, fsym->attr.intent, + fsym->attr.pointer); + else + gfc_conv_expr_descriptor (parmse, e); if (POINTER_TYPE_P (TREE_TYPE (parmse->expr))) parmse->expr = build_fold_indirect_ref_loc (input_location, |