[Bug fortran/55618] [4.6/4.7/4.8 Regression] Failures with ISO_Varying_String test suite

[burnus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=55618

Tobias Burnus <burnus at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Priority|P3                          |P4
   Target Milestone|---                         |4.6.4

--- Comment #3 from Tobias Burnus <burnus at gcc dot gnu.org> 2012-12-10 11:43:34 UTC ---
In trans-expr.c's gfc_conv_procedure_call, one calls:

  3997        else if (se->ss && se->ss->info->useflags)
  3998          {
...
  4007            if (ss->dimen > 0 && e->expr_type == EXPR_VARIABLE
  4008                && ss->info->data.array.ref == NULL)
...
  4016            else
  4017              gfc_conv_expr_reference (&parmse, e);

 * * *

Even shorter example. Note the VALUE attribute (cf. PR55638 for the wrong
"INTENT(IN)"):


integer :: A(3)
call foo(a, f())
print *, a
contains
  elemental subroutine foo(x,y)
    integer, intent(inout) :: x
    integer, VALUE, intent(in)  :: y
    x = y
  end subroutine foo
  function f()
    integer :: f
    f = 42
  end function f
end