This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[gfortran] committed: minor testsuite fix
- From: Tobias Schlüter <tobias dot schlueter at physik dot uni-muenchen dot de>
- To: GCC Fortran mailing list <fortran at gcc dot gnu dot org>,patch <gcc-patches at gcc dot gnu dot org>
- Date: Thu, 10 Jun 2004 14:44:55 +0200
- Subject: [gfortran] committed: minor testsuite fix
We used to pass an INTEGER*4 to external subroutines expecting REAL*4
and REAL*8, respectively. This doesn't seem to have done any damage
(intrinsic_scale.f90 only fails where everthing else fails AFAICsee),
but it's wrong nonetheless.
Should I open a PR, because this is definitely a case of a missed warning?
I verified that there are no new testsuite failures with this patch.
- Tobi
Index: ChangeLog
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/ChangeLog,v
retrieving revision 1.3837
diff -u -p -r1.3837 ChangeLog
--- ChangeLog 10 Jun 2004 08:43:14 -0000 1.3837
+++ ChangeLog 10 Jun 2004 12:40:41 -0000
@@ -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
Index: gfortran.fortran-torture/execute/intrinsic_scale.f90
===================================================================
RCS file:
/cvs/gcc/gcc/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_scale.f90,v
retrieving revision 1.2
diff -u -p -r1.2 intrinsic_scale.f90
--- gfortran.fortran-torture/execute/intrinsic_scale.f90 13 May
2004 06:40:53 -0000 1.2
+++ gfortran.fortran-torture/execute/intrinsic_scale.f90 10 Jun
2004 12:40:41 -0000
@@ -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)