select_1.f90: Rename function to fix type error.

* gfortran.fortran-torture/execute/select_1.f90: Rename function
to fix type error.
* gfortran.fortran-torture/execute/intrinsic_associated.f90:
Remove trailing spaces.

From-SVN: r83459

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d9f579e2968d3ba3f79e27de5f89b541b2d06d95..fbfcf4464f3f9d6a11407c23c1d9e1cf533bc59d 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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

diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_associated.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_associated.f90
index f0518deac080de99e57af8b101e703e27a7aa298..586f766010a6a30a5df18c58a61b449e8278486d 100644 (file)
--- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_associated.f90
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_associated.f90
@@ -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

diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/select_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/select_1.f90
index b6ed5befedfa548dbf6192fa54cd29813effa044..2fe5b6847d86badf662d9b0e44107b4117f9ce87 100644 (file)
--- a/gcc/testsuite/gfortran.fortran-torture/execute/select_1.f90
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/select_1.f90
@@ -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