OpenCores
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.fortran-torture/] [execute/] [intrinsic_minmax.f90] - Rev 303

Compare with Previous | Blame | View Log

! Program to test min and max intrinsics
program intrinsic_minmax
   implicit none
   integer i, j, k, m
   real r, s, t, u

   i = 1
   j = -2
   k = 3
   m = 4
   if (min (i, k) .ne. 1) call abort
   if (min (i, j, k, m) .ne. -2) call abort
   if (max (i, k) .ne. 3) call abort
   if (max (i, j, k, m) .ne. 4) call abort
   if (max (i+1, j) .ne. 2) call abort

   r = 1
   s = -2
   t = 3
   u = 4
   if (min (r, t) .ne. 1) call abort
   if (min (r, s, t, u) .ne. -2) call abort
   if (max (r, t) .ne. 3) call abort
   if (max (r, s, t, u) .ne. 4) call abort

   if (max (4d0, r) .ne. 4d0) call abort
   if (amax0 (i, j) .ne. 1.0) call abort
   if (min1 (r, s) .ne. -2) call abort

   ! Test simplify.
   if (min (1, -2, 3, 4) .ne. -2) call abort
   if (max (1, -2, 3, 4) .ne. 4) call abort
   if (amax0 (1, -2) .ne. 1.0) call abort
   if (min1 (1., -2.) .ne. -2) call abort

end program

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.