lsametst (l) - Linux Man Pages

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