diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2023-04-11 21:44:20 +0200 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2023-04-12 11:08:59 +0200 |
| commit | 2273fd5a6fdbe8f7da2c0e217c279bcbaaa7df9e (patch) | |
| tree | c05ecfb6ca5f331aa0d68229c84e817cecaf1615 /gcc/fortran/trans-expr.cc | |
| parent | c482995cc5bac4a2168ea0049041e712544e474b (diff) | |
| download | gcc-2273fd5a6fdbe8f7da2c0e217c279bcbaaa7df9e.zip gcc-2273fd5a6fdbe8f7da2c0e217c279bcbaaa7df9e.tar.gz gcc-2273fd5a6fdbe8f7da2c0e217c279bcbaaa7df9e.tar.bz2 | |
Fortran: fix functions with entry and pointer/allocatable result [PR104312]
gcc/fortran/ChangeLog:
PR fortran/104312
* resolve.cc (resolve_entries): Handle functions with ENTRY and
ALLOCATABLE results.
* trans-expr.cc (gfc_conv_procedure_call): Functions with a result
with the POINTER or ALLOCATABLE attribute shall not get any special
treatment with -ff2c, as they cannot be written in Fortran 77.
* trans-types.cc (gfc_return_by_reference): Likewise.
(gfc_get_function_type): Likewise.
gcc/testsuite/ChangeLog:
PR fortran/104312
* gfortran.dg/entry_26.f90: New test.
* gfortran.dg/entry_27.f90: New test.
Diffstat (limited to 'gcc/fortran/trans-expr.cc')
| -rw-r--r-- | gcc/fortran/trans-expr.cc | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc index f052d6b..79367fa 100644 --- a/gcc/fortran/trans-expr.cc +++ b/gcc/fortran/trans-expr.cc @@ -7800,6 +7800,8 @@ gfc_conv_procedure_call (gfc_se * se, gfc_symbol * sym, */ if (flag_f2c && sym->ts.type == BT_REAL && sym->ts.kind == gfc_default_real_kind + && !sym->attr.pointer + && !sym->attr.allocatable && !sym->attr.always_explicit) se->expr = fold_convert (gfc_get_real_type (sym->ts.kind), se->expr); |