diff options
| author | Tobias Burnus <burnus@net-b.de> | 2013-01-07 12:10:53 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2013-01-07 12:10:53 +0100 |
| commit | 6838c1371dea868b5f2ff44d279d3620bfbb6d9a (patch) | |
| tree | ed809dda5007ff305c3a618bea6216aa7467a12f /gcc/fortran/simplify.c | |
| parent | a8c4c75a4a5062687fa08d1d6273cef4a0ce22fe (diff) | |
| download | gcc-6838c1371dea868b5f2ff44d279d3620bfbb6d9a.zip gcc-6838c1371dea868b5f2ff44d279d3620bfbb6d9a.tar.gz gcc-6838c1371dea868b5f2ff44d279d3620bfbb6d9a.tar.bz2 | |
re PR fortran/55852 (internal compiler error: in gfc_build_intrinsic_call, at fortran/expr.c:4647)
2013-01-07 Tobias Burnus <burnus@net-b.de>
Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/55852
* expr.c (gfc_build_intrinsic_call): Avoid clashes
with user's procedures.
* gfortran.h (gfc_build_intrinsic_call): Update prototype.
* simplify.c (gfc_simplify_size): Update call.
* class.c (finalization_scalarizer, finalization_get_offset,
finalizer_insert_packed_call, generate_finalization_wrapper):
Clean up by using gfc_build_intrinsic_call.
2013-01-07 Tobias Burnus <burnus@net-b.de>
PR fortran/55852
* gfortran.dg/intrinsic_size_3.f90: New.
Co-Authored-By: Thomas Koenig <tkoenig@gcc.gnu.org>
From-SVN: r194966
Diffstat (limited to 'gcc/fortran/simplify.c')
| -rw-r--r-- | gcc/fortran/simplify.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index eb3e8c3..9f148ba 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -5584,7 +5584,9 @@ gfc_simplify_size (gfc_expr *array, gfc_expr *dim, gfc_expr *kind) /* Otherwise, we build a new SIZE call. This is hopefully at least simpler than the original one. */ if (!simplified) - simplified = gfc_build_intrinsic_call ("size", array->where, 3, + simplified = gfc_build_intrinsic_call (gfc_current_ns, + GFC_ISYM_SIZE, "size", + array->where, 3, gfc_copy_expr (replacement), gfc_copy_expr (dim), gfc_copy_expr (kind)); |