00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013 #include "f2c.h"
00014 #include "blaswrap.h"
00015
00016
00017
00018 static integer c__9 = 9;
00019 static integer c__1 = 1;
00020 static integer c__3 = 3;
00021
00022 int MAIN__(void)
00023 {
00024
00025 static char fmt_9999[] = "(\002 *** Error: LSAME( \002,a1,\002, \002,"
00026 "a1,\002) is .FALSE.\002)";
00027 static char fmt_9998[] = "(\002 *** Error: LSAME( \002,a1,\002, \002,"
00028 "a1,\002) is .TRUE.\002)";
00029
00030
00031 integer i__1;
00032
00033
00034 integer s_wsle(cilist *), do_lio(integer *, integer *, char *, ftnlen),
00035 e_wsle(void), s_wsfe(cilist *), do_fio(integer *, char *, ftnlen),
00036 e_wsfe(void);
00037
00038
00039 integer i1, i2;
00040 extern logical lsame_(char *, char *);
00041
00042
00043 static cilist io___3 = { 0, 6, 0, 0, 0 };
00044 static cilist io___4 = { 0, 6, 0, 0, 0 };
00045 static cilist io___5 = { 0, 6, 0, fmt_9999, 0 };
00046 static cilist io___6 = { 0, 6, 0, fmt_9999, 0 };
00047 static cilist io___7 = { 0, 6, 0, fmt_9999, 0 };
00048 static cilist io___8 = { 0, 6, 0, fmt_9999, 0 };
00049 static cilist io___9 = { 0, 6, 0, fmt_9998, 0 };
00050 static cilist io___10 = { 0, 6, 0, fmt_9998, 0 };
00051 static cilist io___11 = { 0, 6, 0, fmt_9998, 0 };
00052 static cilist io___12 = { 0, 6, 0, fmt_9998, 0 };
00053 static cilist io___13 = { 0, 6, 0, fmt_9998, 0 };
00054 static cilist io___14 = { 0, 6, 0, fmt_9998, 0 };
00055 static cilist io___15 = { 0, 6, 0, fmt_9998, 0 };
00056 static cilist io___16 = { 0, 6, 0, fmt_9998, 0 };
00057 static cilist io___17 = { 0, 6, 0, 0, 0 };
00058
00059
00060
00061
00062
00063
00064
00065
00066
00067
00068
00069
00070
00071
00072
00073
00074
00075
00076 i1 = 'A';
00077 i2 = 'a';
00078 if (i2 - i1 == 32) {
00079 s_wsle(&io___3);
00080 do_lio(&c__9, &c__1, " ASCII character set", (ftnlen)20);
00081 e_wsle();
00082 } else {
00083 s_wsle(&io___4);
00084 do_lio(&c__9, &c__1, " Non-ASCII character set, IOFF should be ", (
00085 ftnlen)41);
00086 i__1 = i2 - i1;
00087 do_lio(&c__3, &c__1, (char *)&i__1, (ftnlen)sizeof(integer));
00088 e_wsle();
00089 }
00090
00091
00092
00093 if (! lsame_("A", "A")) {
00094 s_wsfe(&io___5);
00095 do_fio(&c__1, "A", (ftnlen)1);
00096 do_fio(&c__1, "A", (ftnlen)1);
00097 e_wsfe();
00098 }
00099 if (! lsame_("A", "a")) {
00100 s_wsfe(&io___6);
00101 do_fio(&c__1, "A", (ftnlen)1);
00102 do_fio(&c__1, "a", (ftnlen)1);
00103 e_wsfe();
00104 }
00105 if (! lsame_("a", "A")) {
00106 s_wsfe(&io___7);
00107 do_fio(&c__1, "a", (ftnlen)1);
00108 do_fio(&c__1, "A", (ftnlen)1);
00109 e_wsfe();
00110 }
00111 if (! lsame_("a", "a")) {
00112 s_wsfe(&io___8);
00113 do_fio(&c__1, "a", (ftnlen)1);
00114 do_fio(&c__1, "a", (ftnlen)1);
00115 e_wsfe();
00116 }
00117 if (lsame_("A", "B")) {
00118 s_wsfe(&io___9);
00119 do_fio(&c__1, "A", (ftnlen)1);
00120 do_fio(&c__1, "B", (ftnlen)1);
00121 e_wsfe();
00122 }
00123 if (lsame_("A", "b")) {
00124 s_wsfe(&io___10);
00125 do_fio(&c__1, "A", (ftnlen)1);
00126 do_fio(&c__1, "b", (ftnlen)1);
00127 e_wsfe();
00128 }
00129 if (lsame_("a", "B")) {
00130 s_wsfe(&io___11);
00131 do_fio(&c__1, "a", (ftnlen)1);
00132 do_fio(&c__1, "B", (ftnlen)1);
00133 e_wsfe();
00134 }
00135 if (lsame_("a", "b")) {
00136 s_wsfe(&io___12);
00137 do_fio(&c__1, "a", (ftnlen)1);
00138 do_fio(&c__1, "b", (ftnlen)1);
00139 e_wsfe();
00140 }
00141 if (lsame_("O", "/")) {
00142 s_wsfe(&io___13);
00143 do_fio(&c__1, "O", (ftnlen)1);
00144 do_fio(&c__1, "/", (ftnlen)1);
00145 e_wsfe();
00146 }
00147 if (lsame_("/", "O")) {
00148 s_wsfe(&io___14);
00149 do_fio(&c__1, "/", (ftnlen)1);
00150 do_fio(&c__1, "O", (ftnlen)1);
00151 e_wsfe();
00152 }
00153 if (lsame_("o", "/")) {
00154 s_wsfe(&io___15);
00155 do_fio(&c__1, "o", (ftnlen)1);
00156 do_fio(&c__1, "/", (ftnlen)1);
00157 e_wsfe();
00158 }
00159 if (lsame_("/", "o")) {
00160 s_wsfe(&io___16);
00161 do_fio(&c__1, "/", (ftnlen)1);
00162 do_fio(&c__1, "o", (ftnlen)1);
00163 e_wsfe();
00164 }
00165 s_wsle(&io___17);
00166 do_lio(&c__9, &c__1, " Tests completed", (ftnlen)16);
00167 e_wsle();
00168
00169 return 0;
00170 }
00171
00172 int test1_ () { MAIN__ (); return 0; }