URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

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

Rev 303	Rev 338
`! Check initialization of character variables via the DATA statement`	`! Check initialization of character variables via the DATA statement`
`CHARACTER*4 a`	`CHARACTER*4 a`
`CHARACTER*6 b`	`CHARACTER*6 b`
`CHARACTER*2 c`	`CHARACTER*2 c`
`CHARACTER*4 d(2)`	`CHARACTER*4 d(2)`
`CHARACTER*4 e`	`CHARACTER*4 e`

`DATA a(1:2) /'aa'/`	`DATA a(1:2) /'aa'/`
`DATA a(3:4) /'b'/`	`DATA a(3:4) /'b'/`
`DATA b(2:6), c /'AAA', '12345'/`	`DATA b(2:6), c /'AAA', '12345'/`
`DATA d /2*'1234'/`	`DATA d /2*'1234'/`
`DATA e(4:4), e(1:3) /'45', '123A'/`	`DATA e(4:4), e(1:3) /'45', '123A'/`

`IF (a.NE.'aab ') CALL abort()`	`IF (a.NE.'aab ') CALL abort()`
`IF (b.NE.' AAA ') CALL abort()`	`IF (b.NE.' AAA ') CALL abort()`
`IF (c.NE.'12') CALL abort()`	`IF (c.NE.'12') CALL abort()`
`IF (d(1).NE.d(2) .OR. d(1).NE.'1234') CALL abort()`	`IF (d(1).NE.d(2) .OR. d(1).NE.'1234') CALL abort()`
`IF (e.NE.'1234') CALL abort()`	`IF (e.NE.'1234') CALL abort()`
`END`	`END`