2007-12-21 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/34540
* iresolve.c (gfc_resolve_cshift): Take optional dim path
only if the argument is an optional itself.
* iresolve.c (gfc_resolve_eoshift): Same.
From-SVN: r131133
+2007-12-21 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR fortran/34540
+ * iresolve.c (gfc_resolve_cshift): Take optional dim path
+ only if the argument is an optional itself.
+ * iresolve.c (gfc_resolve_eoshift): Same.
+
2007-12-21 Paul Thomas <pault@gcc.gnu.org>
PR fortran/34438
if (dim != NULL)
{
- if (dim->expr_type != EXPR_CONSTANT)
+ if (dim->expr_type != EXPR_CONSTANT && dim->symtree->n.sym->attr.optional)
{
/* Mark this for later setting the type in gfc_conv_missing_dummy. */
dim->representation.length = shift->ts.kind;
if (dim != NULL)
{
- if (dim->expr_type != EXPR_CONSTANT)
+ if (dim->expr_type != EXPR_CONSTANT && dim->symtree->n.sym->attr.optional)
{
/* Mark this for later setting the type in gfc_conv_missing_dummy. */
dim->representation.length = shift->ts.kind;