diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2019-10-05 15:23:26 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2019-10-05 15:23:26 +0000 |
| commit | 2345fe52da74dac58173489e844647d3a94f4ca8 (patch) | |
| tree | c97e0c3f80257bacdf5fbce7c224ef8a89096f23 /gcc/fortran/decl.c | |
| parent | 74e4fb1361b89fcca2b713ac79832934a7b3030b (diff) | |
| download | gcc-2345fe52da74dac58173489e844647d3a94f4ca8.zip gcc-2345fe52da74dac58173489e844647d3a94f4ca8.tar.gz gcc-2345fe52da74dac58173489e844647d3a94f4ca8.tar.bz2 | |
re PR fortran/47054 (Compilation error when cray pointers are declared in both host and internal subroutines)
2019-10-05 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/47045
* decl.c (variable_decl): Do not search parent namespace for symbol.
2019-10-05 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/47045
* gfortran.dg/pr47054_1.f90: New test
* gfortran.dg/pr47054_2.f90: Ditto.
From-SVN: r276627
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index d439906..9b604c8 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -2682,7 +2682,7 @@ variable_decl (int elem) then we want to set the type & bail out. */ if (flag_cray_pointer && !gfc_comp_struct (gfc_current_state ())) { - gfc_find_symbol (name, gfc_current_ns, 1, &sym); + gfc_find_symbol (name, gfc_current_ns, 0, &sym); if (sym != NULL && sym->attr.cray_pointee) { m = MATCH_YES; |