1! { dg-do run } 2! { dg-options "-fbounds-check" } 3! 4! PR fortran/40452 5! The following program is valid Fortran 90 and later. 6! The storage-sequence association of the dummy argument 7! allows that the actual argument ["ab", "cd"] is mapped 8! to the dummy argument a(1) which perfectly fits. 9! (The dummy needs to be an array, however.) 10! 11 12program test 13 implicit none 14 call sub(["ab", "cd"]) 15contains 16 subroutine sub(a) 17 character(len=4) :: a(1) 18 print *, a(1) 19 end subroutine sub 20end program test 21