mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-04 02:40:27 +08:00
Code Issues Packages Projects Releases Wiki Activity

select_1.f90: Rename function to fix type error.

Browse Source 
* 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
This commit is contained in:
Tobias Schlüter 2004-06-22 00:56:34 +02:00 committed by Tobias Schlüter
parent 8e2cd6dda7
commit 63110e4e74
3 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/testsuite/ChangeLog
View File

@ -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

6
gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_associated.f90
View File

@ -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

10
gcc/testsuite/gfortran.fortran-torture/execute/select_1.f90
View File

@ -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