1! Program to test the ABS intrinsic
2program intrinsic_abs
3   implicit none
4   integer i
5   real(kind=4) r
6   real(kind=8) q
7   complex z
8
9   i = 42
10   i = abs(i)
11   if (i .ne. 42) STOP 1
12   i = -43
13   i = abs(i)
14   if (i .ne. 43) STOP 2
15
16   r = 42.0
17   r = abs(r)
18   if (r .ne. 42.0) STOP 3
19   r = -43.0
20   r = abs(r)
21   if (r .ne. 43.0) STOP 4
22
23   q = 42.0_8
24   q = abs(q)
25   if (q .ne. 42.0_8) STOP 5
26   q = -43.0_8
27   q = abs(q)
28   if (q .ne. 43.0_8) STOP 6
29
30   z = (3, 4)
31   r = abs(z)
32   if (r .ne. 5) STOP 7
33end program
34