PSS ID Number: 104899
Article Last Modified on 3/24/2000
C No compiler options required
character*10 a,b
a = "1234567890"
b = "123456789A"
a(5:5) = char(0)
b(5:5) = char(0)
print *, "Should be: F T T T F F"
print "(' Result: ',L2,\)", ( a .eq. b )
print '(L2,\)', ( a .ne. b )
print '(L2,\)', ( a .lt. b )
print '(L2,\)', ( b .gt. a )
print '(L2,\)', ( b .le. a )
print '(L2)', ( a .ge. b )
end
Additional query words: 1.00 5.10 buglist1.00 fixlist1.00a
Keywords: kbbug KB104899
Technology: kbAudDeveloper kbFORTRANPower100DOS kbFortranSearch kbZNotKeyword3