[Bug fortran/56422] New: IR F08/0086: gfortran rejects valid implied-shape arrays

["burnus at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

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

             Bug #: 56422
           Summary: IR F08/0086: gfortran rejects valid implied-shape
                    arrays
    Classification: Unclassified
           Product: gcc
           Version: 4.8.0
            Status: UNCONFIRMED
          Keywords: rejects-valid
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: burnus@gcc.gnu.org


IR F08/0086, http://www.j3-fortran.org/doc/year/13/13-235r1.txt allows the
following, which is currently rejected by:

   Error: Assumed size array at (1) must be a dummy argument

Note: The IR has not yet passed the J3/WG5 vote and has thus to be taken with a
pinch of salt.


Q1.  Consider

  Program test1
    Character(*) a,b(*)
    Dimension c(*)
    Parameter (a='123', b=['1','2','3'])
    Character(*),Parameter :: c = [ '44','55','66' ]
    Print *,a,b,c
  End

[...]

Q2. Consider

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

[...]
ANSWER:

A1. Yes, the program was intended to conform to the Fortran standard.
    An edit is provided to modify the requirement for prior
    specification so as to allow this case.

A2. Yes, the program is intended to conform to the Fortran standard.
    An edit is provided to add syntax to permit this unambiguously.
[...]