1 files changed, 33 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_abs.f90 b/gcc-4.9/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_abs.f90
new file mode 100644
index 000000000..9e44657ba
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_abs.f90
@@ -0,0 +1,33 @@
+! 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