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