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.2.2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [intrinsic_abs.f90] - Rev 154
Compare with Previous | Blame | View Log
! Program to test the ABS intrinsic
program intrinsic_abs
implicit none
integer i
real(kind=4) r
real(kind=8) q
complex z
i = 42
i = abs(i)
if (i .ne. 42) call abort
i = -43
i = abs(i)
if (i .ne. 43) call abort
r = 42.0
r = abs(r)
if (r .ne. 42.0) call abort
r = -43.0
r = abs(r)
if (r .ne. 43.0) call abort
q = 42.0_8
q = abs(q)
if (q .ne. 42.0_8) call abort
q = -43.0_8
q = abs(q)
if (q .ne. 43.0_8) call abort
z = (3, 4)
r = abs(z)
if (r .ne. 5) call abort
end program