https://gcc.gnu.org/bugzilla/show_bug.cgi?id=56422

Harald Anlauf <anlauf at gmx dot de> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |anlauf at gmx dot de

--- Comment #3 from Harald Anlauf <anlauf at gmx dot de> ---
Example 2 in comment #0 should read (c.f. link in comment #2):

  Subroutine test2(a)
    Real,Dimension(*) :: a,c
    Parameter (c = [ 45.6 ])
    a(:size(c)) = c
  End Subroutine

This one still fails, as does example 1.

However, the following rewrite of example 2 compiles with 8.0 trunk:

  Subroutine test2(a)
    Real,Dimension(*) :: a
    Real,Parameter    :: c(*) = [ 45.6 ]
    a(:size(c)) = c
  End Subroutine

Reply via email to