From 63110e4e74f1c2bec7469c131b097b4ab5bedf25 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Tobias=20Schl=C3=BCter?= Date: Tue, 22 Jun 2004 00:56:34 +0200 Subject: [PATCH] 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 --- gcc/testsuite/ChangeLog | 7 +++++++ .../execute/intrinsic_associated.f90 | 6 +++--- .../gfortran.fortran-torture/execute/select_1.f90 | 10 +++++----- 3 files changed, 15 insertions(+), 8 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d9f579e2968..fbfcf4464f3 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,10 @@ +2004-06-21 Tobias Schlueter + + * 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 * 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 f0518deac08..586f766010a 100644 --- 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 b6ed5befedf..2fe5b6847d8 100644 --- 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 -- 2.30.2