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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [intrinsic_mmloc_2.f90] - Blame information for rev 308

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


program intrinsic_mmloc_2
  real a(-1:1), b(2:3), c(1:2)
  integer, dimension(1):: i
  real (kind = 8), dimension(-1:1) :: vc
 
  a = 0
  b = 0
  c = 0
  a(-1) = 1
  b(2) = 1
  c(1) = 1
 
  if (maxloc (a, 1) .ne. 1) call abort()
  if (maxloc (b, 1) .ne. 1) call abort()
  if (maxloc (c, 1) .ne. 1) call abort()
 
 
  ! We were giving MINLOC and MAXLOC the wrong return type
  vc = (/4.0d0, 2.50d1, 1.0d1/)
  i = minloc (vc)
  if (i(1) .ne. 1) call abort()
END PROGRAM

Line No.	Rev	Author	Line
1	303	jeremybenn	`program intrinsic_mmloc_2`
2			`real a(-1:1), b(2:3), c(1:2)`
3			`integer, dimension(1):: i`
4			`real (kind = 8), dimension(-1:1) :: vc`
5
6			`a = 0`
7			`b = 0`
8			`c = 0`
9			`a(-1) = 1`
10			`b(2) = 1`
11			`c(1) = 1`
12
13			`if (maxloc (a, 1) .ne. 1) call abort()`
14			`if (maxloc (b, 1) .ne. 1) call abort()`
15			`if (maxloc (c, 1) .ne. 1) call abort()`
16
17
18			`! We were giving MINLOC and MAXLOC the wrong return type`
19			`vc = (/4.0d0, 2.50d1, 1.0d1/)`
20			`i = minloc (vc)`
21			`if (i(1) .ne. 1) call abort()`
22			`END PROGRAM`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [intrinsic_mmloc_2.f90] - Blame information for rev 308