URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [write_logical.f90] - Diff between revs 303 and 338

Rev 303	Rev 338
`! PR 14334, L edit descriptor does not work`	`! PR 14334, L edit descriptor does not work`
`!`	`!`
`! this test uses L1 and L4 to print TRUE and FALSE`	`! this test uses L1 and L4 to print TRUE and FALSE`
`logical true,false`	`logical true,false`
`character*10 b`	`character*10 b`
`true = .TRUE.`	`true = .TRUE.`
`false = .FALSE.`	`false = .FALSE.`
`b = ''`	`b = ''`
`write (b, '(L1)') true`	`write (b, '(L1)') true`
`if (b(1:1) .ne. 'T') call abort`	`if (b(1:1) .ne. 'T') call abort`

`b = ''`	`b = ''`
`write (b, '(L1)') false`	`write (b, '(L1)') false`
`if (b(1:1) .ne. 'F') call abort`	`if (b(1:1) .ne. 'F') call abort`

`b = ''`	`b = ''`
`write(b, '(L4)') true`	`write(b, '(L4)') true`
`if (b(1:4) .ne. ' T') call abort`	`if (b(1:4) .ne. ' T') call abort`

`b = ''`	`b = ''`
`write(b, '(L4)') false`	`write(b, '(L4)') false`
`if (b(1:4) .ne. ' F') call abort`	`if (b(1:4) .ne. ' F') call abort`
`end`	`end`