Mac OS X 10.4.9 for x86 Source Code gcc 实现源代码

				! 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