re PR fortran/14957 (testsuite issues)

PR fortran/14957
* gfortran.fortran-torture/execute/intrinsic_scale.f90: Make all
arguments to test_* REAL and of the right size.

From-SVN: r82915

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index eddcfcf62696a7bf082b6ad0f5f096584e610a24..8e856429774e8d83dce44c9bde9ab909cc985120 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2004-06-10  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+
+       PR fortran/14957
+       * gfortran.fortran-torture/execute/intrinsic_scale.f90: Make all
+       arguments to test_* REAL and of the right size.
+
 2004-06-10  Jakub Jelinek  <jakub@redhat.com>
 
        PR target/15569

diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_scale.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_scale.f90
index df483811415d21f406dddcb51364bdb3c00680f1..09acda5261cf9a99fe90f11d7a8571bc7c3c03dd 100644 (file)
--- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_scale.f90
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_scale.f90
@@ -4,8 +4,8 @@ program test_scale
   call test_real4 (3.0, 2)
   call test_real4 (33.0, -2)
   call test_real4 (-3., 2)
-  call test_real4 (0, 3)
-  call test_real8 (0, 3)
+  call test_real4 (0., 3)
+  call test_real8 (0._8, 3)
   call test_real8 (3.0_8, 4)
   call test_real8 (33.0_8, -4)
   call test_real8 (-33._8, 4)