diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2021-03-08 13:05:48 +0100 |
|---|---|---|
| committer | Tobias Burnus <tobias@codesourcery.com> | 2021-03-08 13:05:48 +0100 |
| commit | 8a6a62614a8ae4544770420416d1632d6c3d3f6e (patch) | |
| tree | 89857a0aa12104ba1977c92c1993b2c8cda23ef5 /gcc/tree-nested.c | |
| parent | e99b25df68d4528141f6079e1e3af8ef20bbcb00 (diff) | |
| download | gcc-8a6a62614a8ae4544770420416d1632d6c3d3f6e.zip gcc-8a6a62614a8ae4544770420416d1632d6c3d3f6e.tar.gz gcc-8a6a62614a8ae4544770420416d1632d6c3d3f6e.tar.bz2 | |
tree-nested: Update assert for Fortran module vars [PR97927]
gcc/ChangeLog:
PR fortran/97927
* tree-nested.c (convert_local_reference_stmt): Avoid calling
lookup_field_for_decl for Fortran module (= namespace context).
gcc/testsuite/ChangeLog:
PR fortran/97927
* gfortran.dg/module_variable_3.f90: New test.
Diffstat (limited to 'gcc/tree-nested.c')
| -rw-r--r-- | gcc/tree-nested.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/tree-nested.c b/gcc/tree-nested.c index addd6ee..cea917a 100644 --- a/gcc/tree-nested.c +++ b/gcc/tree-nested.c @@ -2526,6 +2526,7 @@ convert_local_reference_stmt (gimple_stmt_iterator *gsi, bool *handled_ops_p, { tree lhs = gimple_assign_lhs (stmt); if (DECL_P (lhs) + && decl_function_context (lhs) == info->context && !use_pointer_in_frame (lhs) && lookup_field_for_decl (info, lhs, NO_INSERT)) { |