相关代码 |
|
! 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') call abort b = '' write (b, '(L1)') false if (b(1:1) .ne. 'F') call abort b = '' write(b, '(L4)') true if (b(1:4) .ne. ' T') call abort b = '' write(b, '(L4)') false if (b(1:4) .ne. ' F') call abort end
