[gfortran] PATCH Fix PR 20058

[Steve Kargl]

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