lsametst (l) - Linux Manuals

Command to display lsametst manual in Linux: $ man l lsametst

NAME

SYNOPSIS

PROGRAM TEST1
: INTEGER I1, I2
: LOGICAL LSAME
: EXTERNAL LSAME
: INTRINSIC ICHAR
: I1 = ICHAR( aqAaq )
: I2 = ICHAR( aqaaq )
: IF( I2-I1.EQ.32 ) THEN
: WRITE( *, * ) aq ASCII character setaq
: ELSE
: WRITE( *, * ) aq Non-ASCII character set, IOFF should be aq,I2-I1
: END IF
: IF( WRITE( *, 9999 )aqAaq, aqAaq
: IF( WRITE( *, 9999 )aqAaq, aqaaq
: IF( WRITE( *, 9999 )aqaaq, aqAaq
: IF( WRITE( *, 9999 )aqaaq, aqaaq
: IF( LSAME( aqAaq, aqBaq ) ) WRITE( *, 9998 )aqAaq, aqBaq
: IF( LSAME( aqAaq, aqbaq ) ) WRITE( *, 9998 )aqAaq, aqbaq
: IF( LSAME( aqaaq, aqBaq ) ) WRITE( *, 9998 )aqaaq, aqBaq
: IF( LSAME( aqaaq, aqbaq ) ) WRITE( *, 9998 )aqaaq, aqbaq
: IF( LSAME( aqOaq, aq/aq ) ) WRITE( *, 9998 )aqOaq, aq/aq
: IF( LSAME( aq/aq, aqOaq ) ) WRITE( *, 9998 )aq/aq, aqOaq
: IF( LSAME( aqoaq, aq/aq ) ) WRITE( *, 9998 )aqoaq, aq/aq
: IF( LSAME( aq/aq, aqoaq ) ) WRITE( *, 9998 )aq/aq, aqoaq
: WRITE( *, * )aq Tests completedaq
: 9999 FORMAT( aq *** Error: LSAME( aq, A1, aq, aq, A1, aq) is .FALSE.aq )
: 9998 FORMAT( aq *** Error: LSAME( aq, A1, aq, aq, A1, aq) is .TRUE.aq )
: END

PURPOSE