1! { dg-do run } 2! PR fortran/65429 3program foo 4 5 implicit none 6 7 character(*), parameter :: s(*) = [ character(5) :: 'abcde', 'fghij' ] 8 character(*), parameter :: t(*) = [ character(31) :: ] 9 character(*), parameter :: u(*) = [ 'qwerty', 'asdfgh', 'zxcvbn'] 10 character(*), parameter :: v(*) = ['',''] 11 12 if ((size(s) /= 2).or.(len(s)/=5)) call abort 13 if ((size(t) /= 0).or.(len(t)/=31)) call abort 14 if ((size(u) /= 3).or.(len(u)/=6)) call abort 15 if ((size(v) /= 2).or.(len(v)/=0)) call abort 16 if ((s(1)/='abcde').or.(s(2)/='fghij')) call abort 17 if ((u(1)/='qwerty').or.(u(2)/='asdfgh').or.(u(3)/='zxcvbn')) call abort 18 19end program foo 20