[gfortran, committed] Testsuite fix, minor update

[Tobias Schlüter <tobias dot schlueter at physik dot uni-muenchen dot de>]

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