diff options
| author | Steve Kargl <kargl@gcc.gnu.org> | 2023-06-02 19:44:11 +0200 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2023-06-02 19:47:01 +0200 |
| commit | fae09dfc0e6bf4cfe35d817558827aea78c6426f (patch) | |
| tree | 9350c9cac4a4d4fc1539aaf9e4931786d0acea40 /gcc/fortran | |
| parent | 934da923a7295ae97e37425e269195c7d8770ef0 (diff) | |
| download | gcc-fae09dfc0e6bf4cfe35d817558827aea78c6426f.zip gcc-fae09dfc0e6bf4cfe35d817558827aea78c6426f.tar.gz gcc-fae09dfc0e6bf4cfe35d817558827aea78c6426f.tar.bz2 | |
Fortran: fix diagnostics for SELECT RANK [PR100607]
gcc/fortran/ChangeLog:
PR fortran/100607
* resolve.cc (resolve_select_rank): Remove duplicate error.
(resolve_fl_var_and_proc): Prevent NULL pointer dereference and
suppress error message for temporary.
gcc/testsuite/ChangeLog:
PR fortran/100607
* gfortran.dg/select_rank_6.f90: New test.
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/resolve.cc | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/gcc/fortran/resolve.cc b/gcc/fortran/resolve.cc index 2ba3101..fd059dd 100644 --- a/gcc/fortran/resolve.cc +++ b/gcc/fortran/resolve.cc @@ -10020,11 +10020,6 @@ resolve_select_rank (gfc_code *code, gfc_namespace *old_ns) || gfc_expr_attr (code->expr1).pointer)) gfc_error ("RANK (*) at %L cannot be used with the pointer or " "allocatable selector at %L", &c->where, &code->expr1->where); - - if (case_value == -1 && (gfc_expr_attr (code->expr1).allocatable - || gfc_expr_attr (code->expr1).pointer)) - gfc_error ("RANK (*) at %L cannot be used with the pointer or " - "allocatable selector at %L", &c->where, &code->expr1->where); } /* Add EXEC_SELECT to switch on rank. */ @@ -13262,7 +13257,10 @@ resolve_fl_var_and_proc (gfc_symbol *sym, int mp_flag) if (allocatable) { - if (dimension && as->type != AS_ASSUMED_RANK) + if (dimension + && as + && as->type != AS_ASSUMED_RANK + && !sym->attr.select_rank_temporary) { gfc_error ("Allocatable array %qs at %L must have a deferred " "shape or assumed rank", sym->name, &sym->declared_at); |