diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2006-02-09 23:23:28 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2006-02-09 23:23:28 +0000 |
| commit | c4bbc105641ea61b0d4e5a826d639f1051a00667 (patch) | |
| tree | 00c734869e76676429a0a682e4ca72bdc7c46b7e /gcc/fortran/resolve.c | |
| parent | 95c029c30c717127d0120154eff20232ecb9f3c8 (diff) | |
| download | gcc-c4bbc105641ea61b0d4e5a826d639f1051a00667.zip gcc-c4bbc105641ea61b0d4e5a826d639f1051a00667.tar.gz gcc-c4bbc105641ea61b0d4e5a826d639f1051a00667.tar.bz2 | |
re PR fortran/26038 (ICE on allocation of assumed length CHARACTER dummy.)
2006-02-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/26038
* trans-stmt.c (gfc_trans_allocate): Provide assumed character length
scalar with missing backend_decl for the hidden dummy charlen.
PR fortran/25059
* interface.c (gfc_extend_assign): Remove detection of non-PURE
subroutine in assignment interface, with gfc_error, and put it in
* resolve.c (resolve_code).
PR fortran/25070
* interface.c (gfc_procedure_use): Flag rank checking for non-
elemental, contained or interface procedures in call to
(compare_actual_formal), where ranks are checked for assumed
shape arrays..
2006-02-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/26038
* gfortran.dg/allocate_char_star_scalar_1.f90: New test.
PR fortran/25059
* gfortran.dg/impure_assignment_1.f90: New test.
PR fortran/25070
* gfortran.dg/assumed_shape_ranks_1.f90: New test.
From-SVN: r110816
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 2a964f7..3e1c005 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -4241,7 +4241,16 @@ resolve_code (gfc_code * code, gfc_namespace * ns) break; if (gfc_extend_assign (code, ns) == SUCCESS) - goto call; + { + if (gfc_pure (NULL) && !gfc_pure (code->symtree->n.sym)) + { + gfc_error ("Subroutine '%s' called instead of assignment at " + "%L must be PURE", code->symtree->n.sym->name, + &code->loc); + break; + } + goto call; + } if (gfc_pure (NULL)) { |