1! { dg-do compile }
2!
3! PR fortran/34785, in which the character length of BA_T was not
4! passed on to the array constructor argument of SEQ.
5!
6! Contributed by Dick Hendrickson <dick.hendrickson@gmail.com>
7!
8      MODULE o_TYPE_DEFS
9        implicit none
10        TYPE SEQ
11          SEQUENCE
12          CHARACTER(len = 9) ::  BA(2)
13        END TYPE SEQ
14        CHARACTER(len = 9)   ::  BA_T(2)
15        CHARACTER(LEN = 9)   ::  CA_T(1,2)
16      END MODULE o_TYPE_DEFS
17
18      MODULE TESTS
19        use o_type_defs
20        implicit none
21      CONTAINS
22        SUBROUTINE OG0015(UDS0L)
23          TYPE(SEQ)          UDS0L
24          integer :: j1
25          UDS0L = SEQ((/ (BA_T(J1),J1=1,2) /))
26        END SUBROUTINE
27      END MODULE TESTS
28
29      use o_type_defs
30      CONTAINS
31        SUBROUTINE OG0015(UDS0L)
32          TYPE(SEQ)          UDS0L
33          UDS0L = SEQ(RESHAPE ( (/ ((CA_T(J1,J2), J1 = 1, 1), J2 = 1, 2)/),(/2/)))
34        END SUBROUTINE
35      END
36