13 character(kind
=1,len
=*), intent(in
) :: s
14 character(kind
=1,len
=max(0,len(s
)-3)) :: cut1
20 character(kind
=4,len
=*), intent(in
) :: s
21 character(kind
=4,len
=max(0,len(s
)-3)) :: cut4
31 if (len (cut1("")) /= 0 .or
. cut1("") /= "") STOP 1
32 if (len (cut1("1")) /= 0 .or
. cut1("") /= "") STOP 2
33 if (len (cut1("12")) /= 0 .or
. cut1("") /= "") STOP 3
34 if (len (cut1("123")) /= 0 .or
. cut1("") /= "") STOP 4
35 if (len (cut1("1234")) /= 1 .or
. cut1("4") /= "") STOP 5
36 if (len (cut1("12345")) /= 2 .or
. cut1("45") /= "") STOP 6
38 if (len (cut4(4_
"")) /= 0 .or
. cut4(4_
"") /= 4_
"") STOP 7
39 if (len (cut4(4_
"1")) /= 0 .or
. cut4(4_
"") /= 4_
"") STOP 8
40 if (len (cut4(4_
"12")) /= 0 .or
. cut4(4_
"") /= 4_
"") STOP 9
41 if (len (cut4(4_
"123")) /= 0 .or
. cut4(4_
"") /= 4_
"") STOP 10
42 if (len (cut4(4_
"1234")) /= 1 .or
. cut4(4_
"4") /= 4_
"") STOP 11
43 if (len (cut4(4_
"12345")) /= 2 .or
. cut4(4_
"45") /= 4_
"") STOP 12
45 if (kind (cut("")) /= kind("")) STOP 13
46 if (kind (cut(4_
"")) /= kind(4_
"")) STOP 14
48 if (len (cut("")) /= 0 .or
. cut("") /= "") STOP 15
49 if (len (cut("1")) /= 0 .or
. cut("") /= "") STOP 16
50 if (len (cut("12")) /= 0 .or
. cut("") /= "") STOP 17
51 if (len (cut("123")) /= 0 .or
. cut("") /= "") STOP 18
52 if (len (cut("1234")) /= 1 .or
. cut("4") /= "") STOP 19
53 if (len (cut("12345")) /= 2 .or
. cut("45") /= "") STOP 20
55 if (len (cut(4_
"")) /= 0 .or
. cut(4_
"") /= 4_
"") STOP 21
56 if (len (cut(4_
"1")) /= 0 .or
. cut(4_
"") /= 4_
"") STOP 22
57 if (len (cut(4_
"12")) /= 0 .or
. cut(4_
"") /= 4_
"") STOP 23
58 if (len (cut(4_
"123")) /= 0 .or
. cut(4_
"") /= 4_
"") STOP 24
59 if (len (cut(4_
"1234")) /= 1 .or
. cut(4_
"4") /= 4_
"") STOP 25
60 if (len (cut(4_
"12345")) /= 2 .or
. cut(4_
"45") /= 4_
"") STOP 26