01:       PROGRAM TEST1
02: *
03: *  -- LAPACK test routine (version 3.2) --
04: *     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
05: *     November 2006
06: *
07: *     .. Local Scalars ..
08:       INTEGER            I1, I2
09: *     ..
10: *     .. External Functions ..
11:       LOGICAL            LSAME
12:       EXTERNAL           LSAME
13: *     ..
14: *     .. Intrinsic Functions ..
15:       INTRINSIC          ICHAR
16: *     ..
17: *     .. Executable Statements ..
18: *
19: *
20: *     Determine the character set.
21: *
22:       I1 = ICHAR( 'A' )
23:       I2 = ICHAR( 'a' )
24:       IF( I2-I1.EQ.32 ) THEN
25:          WRITE( *, * ) ' ASCII character set'
26:       ELSE
27:          WRITE( *, * ) ' Non-ASCII character set, IOFF should be ',I2-I1
28:       END IF
29: *
30: *     Test LSAME.
31: *
32:       IF( .NOT.LSAME( 'A', 'A' ) )
33:      $   WRITE( *, 9999 )'A', 'A'
34:       IF( .NOT.LSAME( 'A', 'a' ) )
35:      $   WRITE( *, 9999 )'A', 'a'
36:       IF( .NOT.LSAME( 'a', 'A' ) )
37:      $   WRITE( *, 9999 )'a', 'A'
38:       IF( .NOT.LSAME( 'a', 'a' ) )
39:      $   WRITE( *, 9999 )'a', 'a'
40:       IF( LSAME( 'A', 'B' ) )
41:      $   WRITE( *, 9998 )'A', 'B'
42:       IF( LSAME( 'A', 'b' ) )
43:      $   WRITE( *, 9998 )'A', 'b'
44:       IF( LSAME( 'a', 'B' ) )
45:      $   WRITE( *, 9998 )'a', 'B'
46:       IF( LSAME( 'a', 'b' ) )
47:      $   WRITE( *, 9998 )'a', 'b'
48:       IF( LSAME( 'O', '/' ) )
49:      $   WRITE( *, 9998 )'O', '/'
50:       IF( LSAME( '/', 'O' ) )
51:      $   WRITE( *, 9998 )'/', 'O'
52:       IF( LSAME( 'o', '/' ) )
53:      $   WRITE( *, 9998 )'o', '/'
54:       IF( LSAME( '/', 'o' ) )
55:      $   WRITE( *, 9998 )'/', 'o'
56:       WRITE( *, * )' Tests completed'
57: *
58:  9999 FORMAT( ' *** Error:  LSAME( ', A1, ', ', A1, ') is .FALSE.' )
59:  9998 FORMAT( ' *** Error:  LSAME( ', A1, ', ', A1, ') is .TRUE.' )
60:       END
61: