5 CHARACTER (len
=*) MY_STRING(1:3), my_string_s
6 PARAMETER ( MY_STRING
= (/ "A" , "B", "C" /) )
7 PARAMETER ( MY_STRING_S
= "AB C" )
8 character(len
=*), parameter :: str(2) = [ 'Ac','cc']
9 character(len
=*), parameter :: str_s
= 'Acc'
11 CHARACTER (kind
=1,len
=*) MY_STRING1(1:3), my_string_s1
12 PARAMETER ( MY_STRING1
= (/ "A" , "B", "C" /) )
13 PARAMETER ( MY_STRING_S1
= "AB C" )
14 character(kind
=1,len
=*), parameter :: str1(2) = [ 1_
'Ac',1_
'cc']
15 character(kind
=1,len
=*), parameter :: str_s1
= 'Acc'
17 CHARACTER (kind
=4,len
=*) MY_STRING4(1:3), my_string_s4
18 PARAMETER ( MY_STRING4
= (/ 4_
"A" , 4_
"B", 4_
"C" /) )
19 PARAMETER ( MY_STRING_S4
= 4_
"AB C" )
20 character(kind
=4,len
=*), parameter :: str4(2) = [ 4_
'Ac',4_
'cc']
21 character(kind
=4,len
=*), parameter :: str_s4
= 4_
'Acc'
23 if(len(MY_STRING
) /= 1) STOP 1
24 if( MY_STRING(1) /= "A" &
25 .or
.MY_STRING(2) /= "B" &
26 .or
.MY_STRING(3) /= "C") STOP 2
27 if(len(MY_STRING_s
) /= 4) STOP 3
28 if(MY_STRING_S
/= "AB C") STOP 4
29 if(len(str
) /= 2) STOP 5
30 if(str(1) /= "Ac" .or
. str(2) /= "cc") STOP 6
31 if(len(str_s
) /= 3) STOP 7
32 if(str_s
/= 'Acc') STOP 8
34 if(len(MY_STRING1
) /= 1) STOP 9
35 if( MY_STRING1(1) /= 1_
"A" &
36 .or
.MY_STRING1(2) /= 1_
"B" &
37 .or
.MY_STRING1(3) /= 1_
"C") STOP 10
38 if(len(MY_STRING_s1
) /= 4) STOP 11
39 if(MY_STRING_S1
/= 1_
"AB C") STOP 12
40 if(len(str1
) /= 2) STOP 13
41 if(str1(1) /= 1_
"Ac" .or
. str1(2) /= 1_
"cc") STOP 14
42 if(len(str_s1
) /= 3) STOP 15
43 if(str_s1
/= 1_
'Acc') STOP 16
45 if(len(MY_STRING4
) /= 1) STOP 17
46 if( MY_STRING4(1) /= 4_
"A" &
47 .or
.MY_STRING4(2) /= 4_
"B" &
48 .or
.MY_STRING4(3) /= 4_
"C") STOP 18
49 if(len(MY_STRING_s4
) /= 4) STOP 19
50 if(MY_STRING_S4
/= 4_
"AB C") STOP 20
51 if(len(str4
) /= 2) STOP 21
52 if(str4(1) /= 4_
"Ac" .or
. str4(2) /= 4_
"cc") STOP 22
53 if(len(str_s4
) /= 3) STOP 23
54 if(str_s4
/= 4_
'Acc') STOP 24