1 ! Program to test the ABS intrinsic
11 if (i .ne. 42) call abort
14 if (i .ne. 43) call abort
18 if (r .ne. 42.0) call abort
21 if (r .ne. 43.0) call abort
25 if (q .ne. 42.0_8) call abort
28 if (q .ne. 43.0_8) call abort
32 if (r .ne. 5) call abort