1! { dg-do run } 2! { dg-options "-fbounds-check" } 3! 4! PR fortran/27997 5! 6! Array constructor with typespec and dynamic 7! character length. 8! 9PROGRAM test 10 CALL foo(8, "short", "short") 11 CALL foo(2, "lenghty", "le") 12CONTAINS 13 SUBROUTINE foo (n, s, shouldBe) 14 CHARACTER(len=*) :: s 15 CHARACTER(len=*) :: shouldBe 16 CHARACTER(len=16) :: arr(2) 17 INTEGER :: n 18 arr = [ character(len=n) :: s, s ] 19 IF (arr(1) /= shouldBe .OR. arr(2) /= shouldBe) THEN 20 CALL abort () 21 END IF 22 END SUBROUTINE foo 23END PROGRAM test 24