URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [scalar_mask_1.f90] - Blame information for rev 322

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


! { dg-do run }
program main
  implicit none
  real, dimension(2) :: a
  a(1) = 2.0
  a(2) = 3.0
  if (product (a, .false.) /= 1.0) call abort
  if (product (a, .true.) /= 6.0) call abort
  if (sum (a, .false.) /= 0.0) call abort
  if (sum (a, .true.) /= 5.0) call abort
  if (maxval (a, .true.) /= 3.0) call abort
  if (maxval (a, .false.) > -1e38) call abort
  if (maxloc (a, 1, .true.) /= 2) call abort
  if (maxloc (a, 1, .false.) /= 0) call abort ! Change to F2003 requirement.
end program main

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`program main`
3			`implicit none`
4			`real, dimension(2) :: a`
5			`a(1) = 2.0`
6			`a(2) = 3.0`
7			`if (product (a, .false.) /= 1.0) call abort`
8			`if (product (a, .true.) /= 6.0) call abort`
9			`if (sum (a, .false.) /= 0.0) call abort`
10			`if (sum (a, .true.) /= 5.0) call abort`
11			`if (maxval (a, .true.) /= 3.0) call abort`
12			`if (maxval (a, .false.) > -1e38) call abort`
13			`if (maxloc (a, 1, .true.) /= 2) call abort`
14			`if (maxloc (a, 1, .false.) /= 0) call abort ! Change to F2003 requirement.`
15			`end program main`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [scalar_mask_1.f90] - Blame information for rev 322