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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	695	jeremybenn	`! Check initialization of character variables via the DATA statement`
2			`CHARACTER*4 a`
3			`CHARACTER*6 b`
4			`CHARACTER*2 c`
5			`CHARACTER*4 d(2)`
6			`CHARACTER*4 e`
7
8			`DATA a(1:2) /'aa'/`
9			`DATA a(3:4) /'b'/`
10			`DATA b(2:6), c /'AAA', '12345'/`
11			`DATA d /2*'1234'/`
12			`DATA e(4:4), e(1:3) /'45', '123A'/`
13
14			`IF (a.NE.'aab ') CALL abort()`
15			`IF (b.NE.' AAA ') CALL abort()`
16			`IF (c.NE.'12') CALL abort()`
17			`IF (d(1).NE.d(2) .OR. d(1).NE.'1234') CALL abort()`
18			`IF (e.NE.'1234') CALL abort()`
19			`END`