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

gcc/testsuite/ChangeLog

+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

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)