Subversion Repositories openrisc_2011-10-31

! { dg-do compile }

! { dg-do compile }

!

!

! PR fortran/34785, in which the character length of BA_T was not

! PR fortran/34785, in which the character length of BA_T was not

! passed on to the array constructor argument of SEQ.

! passed on to the array constructor argument of SEQ.

!

!

! Contributed by Dick Hendrickson 

! Contributed by Dick Hendrickson 

!

!

      MODULE o_TYPE_DEFS

      MODULE o_TYPE_DEFS

        implicit none

        implicit none

        TYPE SEQ

        TYPE SEQ

          SEQUENCE

          SEQUENCE

          CHARACTER(len = 9) ::  BA(2)

          CHARACTER(len = 9) ::  BA(2)

        END TYPE SEQ

        END TYPE SEQ

        CHARACTER(len = 9)   ::  BA_T(2)

        CHARACTER(len = 9)   ::  BA_T(2)

        CHARACTER(LEN = 9)   ::  CA_T(1,2)

        CHARACTER(LEN = 9)   ::  CA_T(1,2)

      END MODULE o_TYPE_DEFS

      END MODULE o_TYPE_DEFS

      MODULE TESTS

      MODULE TESTS

        use o_type_defs

        use o_type_defs

        implicit none

        implicit none

      CONTAINS

      CONTAINS

        SUBROUTINE OG0015(UDS0L)

        SUBROUTINE OG0015(UDS0L)

          TYPE(SEQ)          UDS0L

          TYPE(SEQ)          UDS0L

          integer :: j1

          integer :: j1

          UDS0L = SEQ((/ (BA_T(J1),J1=1,2) /))

          UDS0L = SEQ((/ (BA_T(J1),J1=1,2) /))

        END SUBROUTINE

        END SUBROUTINE

      END MODULE TESTS

      END MODULE TESTS

      use o_type_defs

      use o_type_defs

      CONTAINS

      CONTAINS

        SUBROUTINE OG0015(UDS0L)

        SUBROUTINE OG0015(UDS0L)

          TYPE(SEQ)          UDS0L

          TYPE(SEQ)          UDS0L

          UDS0L = SEQ(RESHAPE ( (/ ((CA_T(J1,J2), J1 = 1, 1), J2 = 1, 2)/),(/2/)))

          UDS0L = SEQ(RESHAPE ( (/ ((CA_T(J1,J2), J1 = 1, 1), J2 = 1, 2)/),(/2/)))

        END SUBROUTINE

        END SUBROUTINE

      END

      END

! { dg-final { cleanup-modules "o_TYPE_DEFS TESTS" } }

! { dg-final { cleanup-modules "o_TYPE_DEFS TESTS" } }