! PR 14334, L edit descriptor does not work | |
! | |
! this test uses L1 and L4 to print TRUE and FALSE | |
logical true,false | |
character*10 b | |
true = .TRUE. | |
false = .FALSE. | |
b = '' | |
write (b, '(L1)') true | |
if (b(1:1) .ne. 'T') STOP 1 | |
b = '' | |
write (b, '(L1)') false | |
if (b(1:1) .ne. 'F') STOP 2 | |
b = '' | |
write(b, '(L4)') true | |
if (b(1:4) .ne. ' T') STOP 3 | |
b = '' | |
write(b, '(L4)') false | |
if (b(1:4) .ne. ' F') STOP 4 | |
end |