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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pr49540-2.f90] - Blame information for rev 774

Line No.	Rev	Author	Line
1	694	jeremybenn	`! PR fortran/49540`
2			`! { dg-do compile }`
3			`! { dg-options "" }`
4			`block data`
5			`common /a/ i(5,5)`
6			`data i /4, 23 * 5, 6/`
7			`data i(:,2) /1, 3 * 2, 3/`
8			`common /b/ j(5,5)`
9			`data j(2,:) /1, 3 * 2, 3/`
10			`data j /4, 23 * 5, 6/`
11			`common /c/ k(5,5)`
12			`data k(:,2) /1, 3 * 2, 3/`
13			`data k /4, 23 * 5, 6/`
14			`common /d/ l(5,5)`
15			`data l /4, 23 * 5, 6/`
16			`data l(2,:) /1, 3 * 2, 3/`
17			`end block data`