[gfortran] PATCH Fix PR 20058
Steve Kargl
sgk@troutmask.apl.washington.edu
Sun Feb 27 21:23:00 GMT 2005
On Sun, Feb 27, 2005 at 03:12:22PM +0100, Tobias Schl?ter wrote:
> Steve Kargl wrote:
> > The testsuite program are unchanged and located here:
> >
> > http://gcc.gnu.org/ml/gcc-patches/2005-02/msg01253.html
> >
> > Ok for mainline?
> >
> > 2005-02-26 Steven G. Kargl <kargls@comcast.net>
> >
> > * trans-types.c (gfc_max_integer_kind): Declare
> > (gfc_init_kinds): Initialize it.
> > * gfortran.h (gfc_max_integer_kind): extern it.
> > * primary.c (match_boz_constant): Use it; remove gfortran extension
> > of kind suffixes on BOZ literal constants
>
> This is ok if you also fix
> gfortran.fortran-torture/execute/intrinsic_mvbits.f90 which uses the language
> extension.
>
Actually, there were two files that needed changing. I forgot that
changed these and thus forgot to send the diffs. See attached.
M gcc/testsuite/gfortran.dg/ishft.f90
M gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mvbits.f90
--
Steve
-------------- next part --------------
Index: gfortran.dg/ishft.f90
===================================================================
RCS file: /cvsroot/gcc/gcc/gcc/testsuite/gfortran.dg/ishft.f90,v
retrieving revision 1.3
diff -u -b -r1.3 ishft.f90
--- gfortran.dg/ishft.f90 7 Oct 2004 17:07:18 -0000 1.3
+++ gfortran.dg/ishft.f90 27 Feb 2005 16:57:15 -0000
@@ -25,7 +25,7 @@
if (ishft (1_8, 1) /= 2) call abort
if (ishft (3_8, 1) /= 6) call abort
if (ishft (-1_8, 1) /= -2) call abort
-if (ishft (-1_8, -60) /= z'F'_8) call abort ! { dg-warning "" "" }
+if (ishft (-1_8, -60) /= z'F') call abort
if (ishftc (1_1, 0) /= 1) call abort
if (ishftc (1_1, 1) /= 2) call abort
Index: gfortran.fortran-torture/execute/intrinsic_mvbits.f90
===================================================================
RCS file: /cvsroot/gcc/gcc/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mvbits.f90,v
retrieving revision 1.3
diff -u -b -r1.3 intrinsic_mvbits.f90
--- gfortran.fortran-torture/execute/intrinsic_mvbits.f90 7 Oct 2004 17:07:18 -0000 1.3
+++ gfortran.fortran-torture/execute/intrinsic_mvbits.f90 27 Feb 2005 16:57:15 -0000
@@ -10,6 +10,6 @@
if (to /= result) CALL abort()
to8 = 0
-call mvbits (b'1011'_8*2_8**32, 33, 3, to8, 2) ! { dg-warning "" "" }
-if (to8 /= b'10100'_8) call abort ! { dg-warning "" "" }
+call mvbits (b'1011'*2_8**32, 33, 3, to8, 2)
+if (to8 /= b'10100') call abort
end
More information about the Gcc-patches
mailing list