lsametst (l) - Linux Manuals

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