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 | |
| 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.
| -rw-r--r-- | gcc/fortran/expr.cc | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/der_charlen_1.f90 | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr104349.f90 | 8 |
3 files changed, 10 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; diff --git a/gcc/testsuite/gfortran.dg/der_charlen_1.f90 b/gcc/testsuite/gfortran.dg/der_charlen_1.f90 index 9f394c7..1246522 100644 --- a/gcc/testsuite/gfortran.dg/der_charlen_1.f90 +++ b/gcc/testsuite/gfortran.dg/der_charlen_1.f90 @@ -22,3 +22,5 @@ CONTAINS type(T), intent(in) :: X end subroutine end module another_core + +! { dg-prune-output "cannot appear in the expression" } diff --git a/gcc/testsuite/gfortran.dg/pr104349.f90 b/gcc/testsuite/gfortran.dg/pr104349.f90 new file mode 100644 index 0000000..2bea4a3 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr104349.f90 @@ -0,0 +1,8 @@ +! { dg-do compile } +! PR fortran/104349 - reject module variable as character length in PARAMETER +! Contributed by G.Steinmetz + +module m + character(n), parameter :: a(1) = 'b' ! { dg-error "cannot appear" } + character(n), parameter :: c = 'b' ! { dg-error "cannot appear" } +end |