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

Subversion Repositories openrisc

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

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


! Program to test the WHERE constructs
program where_2
   integer temp(10), reduce(10)
 
   temp = 10
   reduce(1:3) = -1
   reduce(4:6) = 0
   reduce(7:8) = 5
   reduce(9:10) = 10
 
   WHERE (reduce < 0)
      temp = 100
   ELSE WHERE (reduce .EQ. 0)
      temp = 200 + temp
   ELSE WHERE
      WHERE (reduce > 6) temp = temp + sum(reduce)
      temp = 300 + temp
   END WHERE
 
   if (any (temp .ne. (/100, 100, 100, 210, 210, 210, 310, 310, 337, 337/))) &
      call abort
end program

Line No.	Rev	Author	Line
1	695	jeremybenn	`! Program to test the WHERE constructs`
2			`program where_2`
3			`integer temp(10), reduce(10)`
4
5			`temp = 10`
6			`reduce(1:3) = -1`
7			`reduce(4:6) = 0`
8			`reduce(7:8) = 5`
9			`reduce(9:10) = 10`
10
11			`WHERE (reduce < 0)`
12			`temp = 100`
13			`ELSE WHERE (reduce .EQ. 0)`
14			`temp = 200 + temp`
15			`ELSE WHERE`
16			`WHERE (reduce > 6) temp = temp + sum(reduce)`
17			`temp = 300 + temp`
18			`END WHERE`
19
20			`if (any (temp .ne. (/100, 100, 100, 210, 210, 210, 310, 310, 337, 337/))) &`
21			`call abort`
22			`end program`

Browse

Tools

Subversion Repositories openrisc

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