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