[Bug fortran/34785] internal compiler error for array constructor for sequence type

[burnus at gcc dot gnu dot org]

------- Comment #1 from burnus at gcc dot gnu dot org  2008-01-14 23:04 -------
The failing assert is:

      /* Complex character array constructors should have been taken care of
         and not end up here.  */
      gcc_assert (ss->string_length);

Reduced test:

      MODULE o_TYPE_DEFS
        implicit none
        TYPE SEQ
          SEQUENCE
          CHARACTER(9,1) ::  BA(-4:5)
        END TYPE SEQ
        CHARACTER(9,1)   ::  BA_T(-4:5)
      END MODULE o_TYPE_DEFS

      MODULE TESTS
        use o_type_defs
        implicit none
      CONTAINS
        SUBROUTINE OG0015(UDS0L)
          TYPE(SEQ)          UDS0L
          integer :: j1
          UDS0L = SEQ((/ (BA_T(J1),J1=-4, 5) /))
        END SUBROUTINE
      END MODULE TESTS


-- 


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