From 0760c3805d97a3c1554d95e982d86d096952e873 Mon Sep 17 00:00:00 2001 From: Paul Brook Date: Wed, 9 Jun 2004 00:37:20 +0000 Subject: [PATCH] * gfortran.fortran-torture/execure/intrinsic_associated.f90 (pointer_to_section): Rewrite to use smaller array. From-SVN: r82805 --- gcc/testsuite/ChangeLog | 55 ++++++++++++---------- .../execute/intrinsic_associated.f90 | 37 +++++++-------- 2 files changed, 47 insertions(+), 45 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 67874f7..175edd4 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,30 +1,35 @@ +2004-06-09 Paul Brook + + * gfortran.fortran-torture/execure/intrinsic_associated.f90 + (pointer_to_section): Rewrite to use smaller array. + 2004-06-08 David Edelsohn - * 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. + * 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. 2004-06-08 Giovanni Bajo diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_associated.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_associated.f90 index 24d647ef..f0518de 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_associated.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_associated.f90 @@ -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) -- 2.7.4