1 ! PR 14334, L edit descriptor does not work
3 ! this test uses L1 and L4 to print TRUE and FALSE
10 if (b(1:1) .ne
. 'T') call abort
13 write (b
, '(L1)') false
14 if (b(1:1) .ne
. 'F') call abort
18 if (b(1:4) .ne
. ' T') call abort
21 write(b
, '(L4)') false
22 if (b(1:4) .ne
. ' F') call abort