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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 5dd8d06c44ca5461eace295fb61b3d02aa9ab1e4..315c0f9648fd461e6a94394f8dc5439f6c02a50d 100644 (file)
--- 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 5b770dc5ca45d3c2877695012eb560cd06f954d8..bb6352f7c893a4f5f7dc0cf391d0a9d1d442d019 100644 (file)
--- 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