From 9cfda6fa545e5be0b860644df1b4579f168ec26f Mon Sep 17 00:00:00 2001
From: Eric Botcazou <ebotcazou@libertysurf.fr>
Date: Mon, 21 Nov 2005 21:52:25 +0100
Subject: [PATCH] re PR libfortran/24432 (Missing symbols)

	PR libfortran/24432
	* lib/target-supports.exp (check_effective_target_fortran_large_real):
	Check that 'cos' is supported.

From-SVN: r107321
---
 gcc/testsuite/ChangeLog               | 6 ++++++
 gcc/testsuite/lib/target-supports.exp | 1 +
 2 files changed, 7 insertions(+)

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 5dd8d06c44ca..315c0f9648fd 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2005-11-21  Eric Botcazou  <ebotcazou@libertysurf.fr>
+
+	PR libfortran/24432
+	* lib/target-supports.exp (check_effective_target_fortran_large_real):
+	Check that 'cos' is supported.
+
 2005-11-21  Paul Thomas  <pault@gcc.gnu.org
 
 	PR fortran/24223
diff --git a/gcc/testsuite/lib/target-supports.exp b/gcc/testsuite/lib/target-supports.exp
index 5b770dc5ca45..bb6352f7c893 100644
--- a/gcc/testsuite/lib/target-supports.exp
+++ b/gcc/testsuite/lib/target-supports.exp
@@ -530,6 +530,7 @@ proc check_effective_target_fortran_large_real { } {
 	puts $f "integer,parameter :: k = &"
         puts $f "  selected_real_kind (precision (0.0_8) + 1)"
         puts $f "real(kind=k) :: x"
+        puts $f "x = cos (x);"
 	puts $f "end"
 	close $f
 
-- 
2.47.2