INSTALL/lsametst.f

   1 *> \brief \b LSAMETST
   2 *
   3 *  =========== DOCUMENTATION ===========
   4 *
   5 * Online html documentation available at
   6 *            http://www.netlib.org/lapack/explore-html/
   7 *
   8 *  Definition:
   9 *  ===========
  10 *
  11 *      PROGRAM LSAMETST
  12 *
  13 *  Authors:
  14 *  ========
  15 *
  16 *> \author Univ. of Tennessee
  17 *> \author Univ. of California Berkeley
  18 *> \author Univ. of Colorado Denver
  19 *> \author NAG Ltd.
  20 *
  21 *> \date December 2016
  22 *
  23 *> \ingroup auxOTHERauxiliary
  24 *
  25 *  =====================================================================      PROGRAM LSAMETST
  26 *
  27 *  -- LAPACK test routine (version 3.7.0) --
  28 *
  29 *  -- LAPACK computational routine (version 3.7.0) --
  30 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
  31 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
  32 *     December 2016
  33 *
  34 *  =====================================================================
  35 *     .. Local Scalars ..
  36       INTEGER            I1, I2
  37 *     ..
  38 *     .. External Functions ..
  39       LOGICAL            LSAME
  40       EXTERNAL           LSAME
  41 *     ..
  42 *     .. Intrinsic Functions ..
  43       INTRINSIC          ICHAR
  44 *     ..
  45 *     .. Executable Statements ..
  46 *
  47 *
  48 *     Determine the character set.
  49 *
  50       I1 = ICHAR( 'A' )
  51       I2 = ICHAR( 'a' )
  52       IF( I2-I1.EQ.32 ) THEN
  53          WRITE( *, * ) ' ASCII character set'
  54       ELSE
  55          WRITE( *, * ) ' Non-ASCII character set, IOFF should be ',I2-I1
  56       END IF
  57 *
  58 *     Test LSAME.
  59 *
  60       IF( .NOT. LSAME( 'A', 'A' ) )
  61      $   WRITE( *, 9999 )'A', 'A'
  62       IF( .NOT. LSAME( 'A', 'a' ) )
  63      $   WRITE( *, 9999 )'A', 'a'
  64       IF( .NOT. LSAME( 'a', 'A' ) )
  65      $   WRITE( *, 9999 )'a', 'A'
  66       IF( .NOT. LSAME( 'a', 'a' ) )
  67      $   WRITE( *, 9999 )'a', 'a'
  68       IF( LSAME( 'A', 'B' ) )
  69      $   WRITE( *, 9998 )'A', 'B'
  70       IF( LSAME( 'A', 'b' ) )
  71      $   WRITE( *, 9998 )'A', 'b'
  72       IF( LSAME( 'a', 'B' ) )
  73      $   WRITE( *, 9998 )'a', 'B'
  74       IF( LSAME( 'a', 'b' ) )
  75      $   WRITE( *, 9998 )'a', 'b'
  76       IF( LSAME( 'O', '/' ) )
  77      $   WRITE( *, 9998 )'O', '/'
  78       IF( LSAME( '/', 'O' ) )
  79      $   WRITE( *, 9998 )'/', 'O'
  80       IF( LSAME( 'o', '/' ) )
  81      $   WRITE( *, 9998 )'o', '/'
  82       IF( LSAME( '/', 'o' ) )
  83      $   WRITE( *, 9998 )'/', 'o'
  84       WRITE( *, * )' Tests completed'
  85 *
  86  9999 FORMAT( ' *** Error:  LSAME( ', A1, ', ', A1, ') is .FALSE.' )
  87  9998 FORMAT( ' *** Error:  LSAME( ', A1, ', ', A1, ') is .TRUE.' )
  88       END