procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* gfortran.fortran-torture/execure/intrinsic_associated.f90

Browse source 
(pointer_to_section): Rewrite to use smaller array.

From-SVN: r82805
This commit is contained in:
Paul Brook 2004-06-09 00:37:20 +00:00
parent 03febbee84
commit 0760c3805d
2 changed files with 46 additions and 44 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

53
gcc/testsuite/ChangeLog
View file

@ -1,30 +1,35 @@
2004-06-09 Paul Brook <paul@codesourcery.com>
* gfortran.fortran-torture/execure/intrinsic_associated.f90
(pointer_to_section): Rewrite to use smaller array.
2004-06-08 David Edelsohn <edelsohn@gnu.org>
* gcc.dg/ext/altivec-1.c: XFAIL powerpc-ibm-aix*.
* gcc.dg/ext/altivec-10.c: Same.
* gcc.dg/ext/altivec-11.c: Same.
* gcc.dg/ext/altivec-12.c: Same.
* gcc.dg/ext/altivec-13.c: Same.
* gcc.dg/ext/altivec-14.c: Same.
* gcc.dg/ext/altivec-15.c: Same.
* gcc.dg/ext/altivec-16.c: Same.
* gcc.dg/ext/altivec-3.c: Same.
* gcc.dg/ext/altivec-4.c: Same.
* gcc.dg/ext/altivec-6.c: Same.
* gcc.dg/ext/altivec-7.c: Same.
* gcc.dg/ext/altivec-8.c: Same.
* gcc.dg/ext/altivec-varargs-1.c: Same.
* gcc.dg/ext/altivec-1.c: XFAIL powerpc-ibm-aix*.
* gcc.dg/ext/altivec-10.c: Same.
* gcc.dg/ext/altivec-11.c: Same.
* gcc.dg/ext/altivec-12.c: Same.
* gcc.dg/ext/altivec-13.c: Same.
* gcc.dg/ext/altivec-14.c: Same.
* gcc.dg/ext/altivec-15.c: Same.
* gcc.dg/ext/altivec-16.c: Same.
* gcc.dg/ext/altivec-3.c: Same.
* gcc.dg/ext/altivec-4.c: Same.
* gcc.dg/ext/altivec-6.c: Same.
* gcc.dg/ext/altivec-7.c: Same.
* gcc.dg/ext/altivec-8.c: Same.
* gcc.dg/ext/altivec-varargs-1.c: Same.
* g++.dg/ext/altivec-1.C: Correct dg syntax.
* g++.dg/ext/altivec-10.C: Same.
* g++.dg/ext/altivec-2.C: Same.
* g++.dg/ext/altivec-3.C: Same.
* g++.dg/ext/altivec-4.C: Same.
* g++.dg/ext/altivec-5.C: Same.
* g++.dg/ext/altivec-6.C: Same.
* g++.dg/ext/altivec-7.C: Same.
* g++.dg/ext/altivec-8.C: Same.
* g++.dg/ext/altivec-9.C: Same.
* g++.dg/ext/altivec-1.C: Correct dg syntax.
* g++.dg/ext/altivec-10.C: Same.
* g++.dg/ext/altivec-2.C: Same.
* g++.dg/ext/altivec-3.C: Same.
* g++.dg/ext/altivec-4.C: Same.
* g++.dg/ext/altivec-5.C: Same.
* g++.dg/ext/altivec-6.C: Same.
* g++.dg/ext/altivec-7.C: Same.
* g++.dg/ext/altivec-8.C: Same.
* g++.dg/ext/altivec-9.C: Same.
2004-06-08 Giovanni Bajo <giovannibajo@gcc.gnu.org>

37
gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_associated.f90
View file

@ -7,33 +7,30 @@ program intrinsic_associated
end
subroutine pointer_to_section ()
integer, dimension(100, 100), target :: xy
integer, dimension(5, 5), target :: xy
integer, dimension(:, :), pointer :: window
integer i, j, k, m, n
data xy /10000*0/
data xy /25*0/
logical t
window => xy(10:50, 30:60)
window => xy(2:4, 3:4)
window = 10
window (1, 1) = 0101
window (41, 31) = 4161
window (41, 1) = 4101
window (1, 31) = 0161
window (3, 2) = 4161
window (3, 1) = 4101
window (1, 2) = 0161
t = associated (window, xy(10:50, 30:60))
t = associated (window, xy(2:4, 3:4))
if (.not.t) call abort ()
if (window(1, 1) .ne. xy(10, 30)) call abort ()
if (window(41, 31) .ne. xy(50, 60)) call abort ()
if (window(1, 31) .ne. xy(10, 60)) call abort ()
if (window(41, 1) .ne. xy(50, 30)) call abort ()
if (xy(9, 29) .ne. 0) call abort ()
if (xy(51,29 ) .ne. 0) call abort ()
if (xy(9, 60) .ne. 0) call abort ()
if (xy(51, 60) .ne. 0) call abort ()
if (xy(11, 31) .ne. 10) call abort ()
if (xy(49, 59) .ne. 10) call abort ()
if (xy(11, 59) .ne. 10) call abort ()
if (xy(49, 31) .ne. 10) call abort ()
! Check that none of the array got mangled
if ((xy(2, 3) .ne. 0101) .or. (xy (4, 4) .ne. 4161) &
.or. (xy(4, 3) .ne. 4101) .or. (xy (2, 4) .ne. 0161)) call abort ()
if (any (xy(:, 1:2) .ne. 0)) call abort ()
if (any (xy(:, 5) .ne. 0)) call abort ()
if (any (xy (1, 3:4) .ne. 0)) call abort ()
if (any (xy (5, 3:4) .ne. 0)) call abort ()
if (xy(3, 3) .ne. 10) call abort ()
if (xy(3, 4) .ne. 10) call abort ()
if (any (xy(2:4, 3:4) .ne. window)) call abort ()
end
subroutine sub1 (a, ap)