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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [947.f] - Blame information for rev 774

Line No.	Rev	Author	Line
1	694	jeremybenn	`c { dg-do run }`
2			`DIMENSION A(-5:5)`
3			`INTEGER(kind=1) IM5, IZ, IP5`
4			`INTEGER(kind=2) IM1, IP1`
5			`PARAMETER (IM5=-5, IM1=-1, IZ=0, IP1=1, IP5=5)`
6			`DATA A(IM5) /-5./, A(IM1) /-1./`
7			`DATA A(IZ) /0./`
8			`DATA A(IP5) /+5./, A(IP1) /+1./`
9			`IF (A(IM5) .NE. -5. .OR. A(IM1) .NE. -1. .OR.`
10			`, A(IZ) .NE. 0. .OR.`
11			`, A(IP5) .NE. +5. .OR. A(IP1) .NE. +1. )`
12			`, CALL ABORT`
13			`END`