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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [write_logical.f90] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | View Log


! 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

Line No.	Rev	Author	Line
1	695	jeremybenn	`! PR 14334, L edit descriptor does not work`
2			`!`
3			`! this test uses L1 and L4 to print TRUE and FALSE`
4			`logical true,false`
5			`character*10 b`
6			`true = .TRUE.`
7			`false = .FALSE.`
8			`b = ''`
9			`write (b, '(L1)') true`
10			`if (b(1:1) .ne. 'T') call abort`
11
12			`b = ''`
13			`write (b, '(L1)') false`
14			`if (b(1:1) .ne. 'F') call abort`
15
16			`b = ''`
17			`write(b, '(L4)') true`
18			`if (b(1:4) .ne. ' T') call abort`
19
20			`b = ''`
21			`write(b, '(L4)') false`
22			`if (b(1:4) .ne. ' F') call abort`
23			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [write_logical.f90] - Blame information for rev 801