diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2006-04-21 05:10:22 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2006-04-21 05:10:22 +0000 |
| commit | 0e3e65bc57c4601556cc684f95bef7a6603f8400 (patch) | |
| tree | a31e9836537d02894165673da7043f16acf8d08a /gcc/fortran/trans-array.c | |
| parent | 56438901a68ebd4ae50ec6d8b590e7d83ae3b92c (diff) | |
| download | gcc-0e3e65bc57c4601556cc684f95bef7a6603f8400.zip gcc-0e3e65bc57c4601556cc684f95bef7a6603f8400.tar.gz gcc-0e3e65bc57c4601556cc684f95bef7a6603f8400.tar.bz2 | |
re PR fortran/27122 (binary operator functions should require intent(in))
2006-04-21 Paul Thomas <pault@gcc.gnu.org>
PR fortran/27122
* resolve.c (resolve_function): Remove general restriction on auto
character length function interfaces.
(gfc_resolve_uops): Check restrictions on defined operator
procedures.
(resolve_types): Call the check for defined operators.
PR fortran/27113
* trans-array.c (gfc_trans_array_constructor_subarray): Remove
redundant gfc_todo_error.
(get_array_ctor_var_strlen): Remove typo in enum.
2006-04-21 Paul Thomas <pault@gcc.gnu.org>
PR fortran/27122
* gfortran.dg/defined_operators_1.f90: New test.
* gfortran.dg/assumed_charlen_function_1.f90: Add new error and
remove old ones associated, incorrectly, with Note 5.46.
PR fortran/27113
* gfortran.dg/character_array_constructor_1.f90: New test.
From-SVN: r113133
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 0157e62..fcd2223 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -1035,9 +1035,6 @@ gfc_trans_array_constructor_subarray (stmtblock_t * pblock, gfc_copy_loopinfo_to_se (&se, &loop); se.ss = ss; - if (expr->ts.type == BT_CHARACTER) - gfc_todo_error ("character arrays in constructors"); - gfc_trans_array_ctor_element (&body, desc, *poffset, &se, expr); gcc_assert (se.ss == gfc_ss_terminator); @@ -1311,7 +1308,7 @@ get_array_ctor_var_strlen (gfc_expr * expr, tree * len) /* Array references don't change the string length. */ break; - case COMPONENT_REF: + case REF_COMPONENT: /* Use the length of the component. */ ts = &ref->u.c.component->ts; break; |