diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2023-04-03 21:34:01 +0200 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2023-04-04 18:42:30 +0200 |
| commit | c57a93f647511cf7a3005f1197a1da03b5e3a1b0 (patch) | |
| tree | 4d459fa6d19fa3e82041f3d9177d83ea4d0286ee /gcc/fortran | |
| parent | ce243c9eefc2728cb8743ebbcb84c3e08236f06a (diff) | |
| download | gcc-c57a93f647511cf7a3005f1197a1da03b5e3a1b0.zip gcc-c57a93f647511cf7a3005f1197a1da03b5e3a1b0.tar.gz gcc-c57a93f647511cf7a3005f1197a1da03b5e3a1b0.tar.bz2 | |
Fortran: reject module variable as character length in PARAMETER [PR104349]
gcc/fortran/ChangeLog:
PR fortran/104349
* expr.cc (check_restricted): Adjust check for valid variables in
restricted expressions: make no exception for module variables.
gcc/testsuite/ChangeLog:
PR fortran/104349
* gfortran.dg/der_charlen_1.f90: Adjust dg-patterns.
* gfortran.dg/pr104349.f90: New test.
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/expr.cc | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/gcc/fortran/expr.cc b/gcc/fortran/expr.cc index 7fb33f8..02028f9 100644 --- a/gcc/fortran/expr.cc +++ b/gcc/fortran/expr.cc @@ -3504,8 +3504,6 @@ check_restricted (gfc_expr *e) || sym->attr.implied_index || sym->attr.flavor == FL_PARAMETER || is_parent_of_current_ns (sym->ns) - || (sym->ns->proc_name != NULL - && sym->ns->proc_name->attr.flavor == FL_MODULE) || (gfc_is_formal_arg () && (sym->ns == gfc_current_ns))) { t = true; |