This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[gfortran, committed] Testsuite fix, minor update
- 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: Tue, 22 Jun 2004 00:57:13 +0200
- Subject: [gfortran, committed] Testsuite fix, minor update
This fixes an embarassing error in a testcase (Fortran oldtimers, please
don't look) which for some reason didn't cause trouble before, and
removes some trailing spaces from another test.
I verified that the updated testcases both pass with an up-to-date
compiler on i686-pc-linux. Committed.
- Tobi
Index: ChangeLog
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/ChangeLog,v
retrieving revision 1.3880
diff -u -p -r1.3880 ChangeLog
--- ChangeLog 21 Jun 2004 09:15:28 -0000 1.3880
+++ ChangeLog 21 Jun 2004 22:50:13 -0000
@@ -1,3 +1,10 @@
+2004-06-21 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
+
+ * gfortran.fortran-torture/execute/select_1.f90: Rename function
+ to fix type error.
+ * gfortran.fortran-torture/execute/intrinsic_associated.f90:
+ Remove trailing spaces.
+
2004-06-21 Richard Henderson <rth@redhat.com>
* gcc.dg/tree-ssa/20030714-1.c: Rename variables to avoid
cvs diff: Diffing gfortran.fortran-torture/execute
Index: gfortran.fortran-torture/execute/intrinsic_associated.f90
===================================================================
RCS file:
/cvs/gcc/gcc/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_associated.f90,v
retrieving revision 1.3
diff -u -p -r1.3 intrinsic_associated.f90
--- gfortran.fortran-torture/execute/intrinsic_associated.f90 9 Jun
2004 00:37:20 -0000 1.3
+++ gfortran.fortran-torture/execute/intrinsic_associated.f90 21 Jun
2004 22:50:13 -0000
@@ -5,7 +5,7 @@ program intrinsic_associated
call pointer_to_derived_1 ()
call associated_2 ()
end
-
+
subroutine pointer_to_section ()
integer, dimension(5, 5), target :: xy
integer, dimension(:, :), pointer :: window
@@ -36,13 +36,13 @@ end
subroutine sub1 (a, ap)
integer, pointer :: ap(:, :)
integer, target :: a(10, 10)
-
+
ap => a
end
subroutine nullify_pp (a)
integer, pointer :: a(:, :)
-
+
if (.not. associated (a)) call abort ()
nullify (a)
end
Index: gfortran.fortran-torture/execute/select_1.f90
===================================================================
RCS file:
/cvs/gcc/gcc/gcc/testsuite/gfortran.fortran-torture/execute/select_1.f90,v
retrieving revision 1.1
diff -u -p -r1.1 select_1.f90
--- gfortran.fortran-torture/execute/select_1.f90 15 Jun 2004
21:50:50 -0000 1.1
+++ gfortran.fortran-torture/execute/select_1.f90 21 Jun 2004
22:50:13 -0000
@@ -1,17 +1,17 @@
! from PR 15962, we used to require constant expressions instead of
! initialization expressions in case-statements
-function x(k)
+function j(k)
integer :: k
-integer :: x
+integer :: j
integer, parameter :: i(2) = (/1,2/)
select case(k)
case (1:size(i))
- x = i(k)
+ j = i(k)
case default
- x = 0
+ j = 0
end select
end function
-if (x(2).NE.2 .OR. x(11).NE.0) call abort()
+if (j(2).NE.2 .OR. j(11).NE.0) call abort()
end