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)) STOP 1
13 if ((size(t
) /= 0).or
.(len(t
)/=31)) STOP 2
14 if ((size(u
) /= 3).or
.(len(u
)/=6)) STOP 3
15 if ((size(v
) /= 2).or
.(len(v
)/=0)) STOP 4
16 if ((s(1)/='abcde').or
.(s(2)/='fghij')) STOP 5
17 if ((u(1)/='qwerty').or
.(u(2)/='asdfgh').or
.(u(3)/='zxcvbn')) STOP 6