From b094d6c4bf572654a031ecc4afe675154c886dc5 Mon Sep 17 00:00:00 2001
From: Jing Yu <jingyu@google.com>
Date: Thu, 22 Jul 2010 14:03:48 -0700
Subject: commit gcc-4.4.3 which is used to build gcc-4.4.3 Android toolchain
 in master. The source is based on fsf gcc-4.4.3 and contains local patches
 which are recorded in gcc-4.4.3/README.google.

Change-Id: Id8c6d6927df274ae9749196a1cc24dbd9abc9887
---
 gcc-4.4.3/gcc/testsuite/gfortran.dg/pr35662.f90 | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 gcc-4.4.3/gcc/testsuite/gfortran.dg/pr35662.f90

(limited to 'gcc-4.4.3/gcc/testsuite/gfortran.dg/pr35662.f90')

diff --git a/gcc-4.4.3/gcc/testsuite/gfortran.dg/pr35662.f90 b/gcc-4.4.3/gcc/testsuite/gfortran.dg/pr35662.f90
new file mode 100644
index 000000000..33095f002
--- /dev/null
+++ b/gcc-4.4.3/gcc/testsuite/gfortran.dg/pr35662.f90
@@ -0,0 +1,20 @@
+! PR target/35662
+! { dg-do run }
+! { dg-options "-O1" }
+
+subroutine f(x, y, z)
+  real, intent (in) :: x
+  real, intent (out) :: y, z
+  y = sin (x)
+  z = cos (x)
+end subroutine f
+
+program pr35662
+  real :: x, y, z
+  x = 3.1415926535897932384626433832795029
+  call f (x, y, z)
+  if (abs (y) > 1.0e-5 .or. abs (z + 1.0) > 1.0e-5) call abort
+  x = x / 2.0
+  call f (x, y, z)
+  if (abs (y - 1.0) > 1.0e-5 .or. abs (z) > 1.0e-5) call abort
+end program pr35662
-- 
cgit v1.2.3