git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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

(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> 2004-06-08 David Edelsohn <edelsohn@gnu.org>
* gcc.dg/ext/altivec-1.c: XFAIL powerpc-ibm-aix*. * gcc.dg/ext/altivec-1.c: XFAIL powerpc-ibm-aix*.
* gcc.dg/ext/altivec-10.c: Same. * gcc.dg/ext/altivec-10.c: Same.
* gcc.dg/ext/altivec-11.c: Same. * gcc.dg/ext/altivec-11.c: Same.
* gcc.dg/ext/altivec-12.c: Same. * gcc.dg/ext/altivec-12.c: Same.
* gcc.dg/ext/altivec-13.c: Same. * gcc.dg/ext/altivec-13.c: Same.
* gcc.dg/ext/altivec-14.c: Same. * gcc.dg/ext/altivec-14.c: Same.
* gcc.dg/ext/altivec-15.c: Same. * gcc.dg/ext/altivec-15.c: Same.
* gcc.dg/ext/altivec-16.c: Same. * gcc.dg/ext/altivec-16.c: Same.
* gcc.dg/ext/altivec-3.c: Same. * gcc.dg/ext/altivec-3.c: Same.
* gcc.dg/ext/altivec-4.c: Same. * gcc.dg/ext/altivec-4.c: Same.
* gcc.dg/ext/altivec-6.c: Same. * gcc.dg/ext/altivec-6.c: Same.
* gcc.dg/ext/altivec-7.c: Same. * gcc.dg/ext/altivec-7.c: Same.
* gcc.dg/ext/altivec-8.c: Same. * gcc.dg/ext/altivec-8.c: Same.
* gcc.dg/ext/altivec-varargs-1.c: Same. * gcc.dg/ext/altivec-varargs-1.c: Same.
* g++.dg/ext/altivec-1.C: Correct dg syntax. * g++.dg/ext/altivec-1.C: Correct dg syntax.
* g++.dg/ext/altivec-10.C: Same. * g++.dg/ext/altivec-10.C: Same.
* g++.dg/ext/altivec-2.C: Same. * g++.dg/ext/altivec-2.C: Same.
* g++.dg/ext/altivec-3.C: Same. * g++.dg/ext/altivec-3.C: Same.
* g++.dg/ext/altivec-4.C: Same. * g++.dg/ext/altivec-4.C: Same.
* g++.dg/ext/altivec-5.C: Same. * g++.dg/ext/altivec-5.C: Same.
* g++.dg/ext/altivec-6.C: Same. * g++.dg/ext/altivec-6.C: Same.
* g++.dg/ext/altivec-7.C: Same. * g++.dg/ext/altivec-7.C: Same.
* g++.dg/ext/altivec-8.C: Same. * g++.dg/ext/altivec-8.C: Same.
* g++.dg/ext/altivec-9.C: Same. * g++.dg/ext/altivec-9.C: Same.
2004-06-08 Giovanni Bajo <giovannibajo@gcc.gnu.org> 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 end
subroutine pointer_to_section () subroutine pointer_to_section ()
integer, dimension(100, 100), target :: xy integer, dimension(5, 5), target :: xy
integer, dimension(:, :), pointer :: window integer, dimension(:, :), pointer :: window
integer i, j, k, m, n data xy /25*0/
data xy /10000*0/
logical t logical t
window => xy(10:50, 30:60) window => xy(2:4, 3:4)
window = 10 window = 10
window (1, 1) = 0101 window (1, 1) = 0101
window (41, 31) = 4161 window (3, 2) = 4161
window (41, 1) = 4101 window (3, 1) = 4101
window (1, 31) = 0161 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 (.not.t) call abort ()
if (window(1, 1) .ne. xy(10, 30)) call abort () ! Check that none of the array got mangled
if (window(41, 31) .ne. xy(50, 60)) call abort () if ((xy(2, 3) .ne. 0101) .or. (xy (4, 4) .ne. 4161) &
if (window(1, 31) .ne. xy(10, 60)) call abort () .or. (xy(4, 3) .ne. 4101) .or. (xy (2, 4) .ne. 0161)) call abort ()
if (window(41, 1) .ne. xy(50, 30)) call abort () if (any (xy(:, 1:2) .ne. 0)) call abort ()
if (xy(9, 29) .ne. 0) call abort () if (any (xy(:, 5) .ne. 0)) call abort ()
if (xy(51,29 ) .ne. 0) call abort () if (any (xy (1, 3:4) .ne. 0)) call abort ()
if (xy(9, 60) .ne. 0) call abort () if (any (xy (5, 3:4) .ne. 0)) call abort ()
if (xy(51, 60) .ne. 0) call abort () if (xy(3, 3) .ne. 10) call abort ()
if (xy(11, 31) .ne. 10) call abort () if (xy(3, 4) .ne. 10) call abort ()
if (xy(49, 59) .ne. 10) call abort () if (any (xy(2:4, 3:4) .ne. window)) call abort ()
if (xy(11, 59) .ne. 10) call abort ()
if (xy(49, 31) .ne. 10) call abort ()
end end
subroutine sub1 (a, ap) subroutine sub1 (a, ap)