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(*) = ['','']
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
