lsametst.c
Go to the documentation of this file.
00001 /* lsametst.f -- translated by f2c (version 20061008).
00002    You must link the resulting object file with libf2c:
00003         on Microsoft Windows system, link with libf2c.lib;
00004         on Linux or Unix systems, link with .../path/to/libf2c.a -lm
00005         or, if you install libf2c.a in a standard place, with -lf2c -lm
00006         -- in that order, at the end of the command line, as in
00007                 cc *.o -lf2c -lm
00008         Source for libf2c is in /netlib/f2c/libf2c.zip, e.g.,
00009 
00010                 http://www.netlib.org/f2c/libf2c.zip
00011 */
00012 
00013 #include "f2c.h"
00014 #include "blaswrap.h"
00015 
00016 /* Table of constant values */
00017 
00018 static integer c__9 = 9;
00019 static integer c__1 = 1;
00020 static integer c__3 = 3;
00021 
00022 /* Main program */ int MAIN__(void)
00023 {
00024     /* Format strings */
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     /* System generated locals */
00031     integer i__1;
00032 
00033     /* Builtin functions */
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     /* Local variables */
00039     integer i1, i2;
00040     extern logical lsame_(char *, char *);
00041 
00042     /* Fortran I/O blocks */
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 /*  -- LAPACK test routine (version 3.2) -- */
00062 /*     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. */
00063 /*     November 2006 */
00064 
00065 /*     .. Local Scalars .. */
00066 /*     .. */
00067 /*     .. External Functions .. */
00068 /*     .. */
00069 /*     .. Intrinsic Functions .. */
00070 /*     .. */
00071 /*     .. Executable Statements .. */
00072 
00073 
00074 /*     Determine the character set. */
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 /*     Test LSAME. */
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 } /* MAIN__ */
00171 
00172 /* Main program alias */ int test1_ () { MAIN__ (); return 0; }


swiftnav
Author(s):
autogenerated on Sat Jun 8 2019 18:55:56