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 323
Go to most recent revision | 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
Go to most recent revision | Compare with Previous | Blame | View Log