! 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 |