[Bug fortran/32673] New: Wrongly allowed: Statement function with subobject of constant

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

Even with -std=f95 -pedantic no error is given for the following program. NAG
f95 gives:

Error: st_function.f90, line 4: Subobject of constant not allowed in statement
function

Example (from gfortran.fortran-torture/execute/st_function.f90):
   subroutine with_character_dummy
      character (len=4) s1, s2, st4
      character (len=10) st5, s0
      st4 (i, j) = "0123456789"(i:j)
      if (st4 (1, 4) .ne. "0123" ) call abort
   end subroutine


I could not find this restriction, when I quickly browsed the standards
(F95,F2003), however, I found the following (F2003, I'm not sure whether it
applies here):

"C421 (R424) The length specified for a character statement function or for a
statement function dummy argument of type character shall be an initialization
expression."


-- 
           Summary: Wrongly allowed: Statement function with subobject of
                    constant
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Keywords: accepts-invalid
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: burnus at gcc dot gnu dot org


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