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