diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2021-09-30 19:08:25 +0200 |
|---|---|---|
| committer | Tobias Burnus <tobias@codesourcery.com> | 2021-09-30 19:08:25 +0200 |
| commit | 643e8f4ee3a2a59a9b96fbcd1ffa8bacbda5b383 (patch) | |
| tree | 916bf1b74f4268ebf136c97877bf064724b3d6ec /gcc/fortran/expr.c | |
| parent | 8088a33df5f62fd6416fb8cb158b791e639aa707 (diff) | |
| download | gcc-643e8f4ee3a2a59a9b96fbcd1ffa8bacbda5b383.zip gcc-643e8f4ee3a2a59a9b96fbcd1ffa8bacbda5b383.tar.gz gcc-643e8f4ee3a2a59a9b96fbcd1ffa8bacbda5b383.tar.bz2 | |
Fortran: Fix same_type_as
A test for CLASS(*) + assumed rank was missing; adding a test to
unlimited_polymorphic_1.f03 showed an ICE as backend_decl wasn't
set. While gfc_get_symbol_decl would fix it, the code also assumed
that the class(*) was a variable and could not be a subobject of
a derived type.
PR fortran/71703
PR fortran/84007
gcc/fortran/ChangeLog:
* trans-intrinsic.c (gfc_conv_same_type_as): Fix handling
of UNLIMITED_POLY.
* trans.h (gfc_vtpr_hash_get): Renamed prototype to ...
(gfc_vptr_hash_get): ... this to match function name.
gcc/testsuite/ChangeLog:
* gfortran.dg/c-interop/c535b-1.f90: Remove wrong comment.
* gfortran.dg/unlimited_polymorphic_1.f03: Extend.
* gfortran.dg/unlimited_polymorphic_32.f90: New test.
Diffstat (limited to 'gcc/fortran/expr.c')
0 files changed, 0 insertions, 0 deletions