[Bug fortran/50821] New: [4.7 Regression] 3 new GCC HEAD@180266 regressions

["dominiq at lps dot ens.fr" <gcc-bugzilla at gcc dot gnu dot org>]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=50821

             Bug #: 50821
           Summary: [4.7 Regression] 3 new GCC HEAD@180266 regressions
    Classification: Unclassified
           Product: gcc
           Version: 4.7.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: dominiq@lps.ens.fr
                CC: hjl@gcc.gnu.org, kargl@gcc.gnu.org


Between revisions 180262 (OK) and 180266 three gfortran tests failed (see
http://gcc.gnu.org/ml/gcc-regression/2011-10/msg00461.html )

NEW   gfortran.sum gfortran.dg/g77/f90-intrinsic-bit.f
NEW   gfortran.sum gfortran.dg/simplify_argN_1.f90
NEW   gfortran.sum gfortran.fortran-torture/execute/intrinsic_bitops.f90

The errors are

[macbook] f90/bug% gfc
/opt/gcc/work/gcc/testsuite/gfortran.dg/g77/f90-intrinsic-bit.f
/opt/gcc/work/gcc/testsuite/gfortran.dg/g77/f90-intrinsic-bit.f:224.24-27:

      call c_i(ISHFTC(i,i2,i3),5,'ISHFTC(integer,integer,integer)')     
                        1  2
Error: The absolute value of SHIFT at (1) must be less than or equal to SIZE at
(2)
...
/opt/gcc/work/gcc/testsuite/gfortran.dg/g77/f90-intrinsic-bit.f:265.25-28:

      call c_i2(ISHFTC(j,k2,i3),ja,                                     
                         1  2
Error: The absolute value of SHIFT at (1) must be less than or equal to SIZE at
(2)
Fatal Error: Error count reached limit of 25.

[macbook] f90/bug% gfc
/opt/gcc/work/gcc/testsuite/gfortran.dg/simplify_argN_1.f90
/opt/gcc/work/gcc/testsuite/gfortran.dg/simplify_argN_1.f90:11.53-56:

  INTEGER, PARAMETER, DIMENSION(N)  :: C = ISHFTC(3, B, 5)   !ICE
                                                     1  2
Error: The absolute value of SHIFT at (1) must be less than or equal to SIZE at
(2)
/opt/gcc/work/gcc/testsuite/gfortran.dg/simplify_argN_1.f90:13.53-56:

  INTEGER, PARAMETER, DIMENSION(N)  :: E = ISHFTC(A, B, 5)   !  OK
                                                     1  2
Error: The absolute value of SHIFT at (1) must be less than or equal to SIZE at
(2)
/opt/gcc/work/gcc/testsuite/gfortran.dg/simplify_argN_1.f90:17.6:

  use mods
      1
Fatal Error: Can't open module file 'mods.mod' for reading at (1): No such file
or directory

[macbook] f90/bug% gfc
/opt/gcc/work/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_bitops.f90
/opt/gcc/work/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_bitops.f90:28.18-23:

   if (ishftc (k, o+1, o+3) .ne. 9) call abort
                  1    2
Error: The absolute value of SHIFT at (1) must be less than or equal to SIZE at
(2)

This is likely due to revision 180264

Author:    kargl
Date:    Thu Oct 20 18:07:10 2011 UTC (18 hours, 32 minutes ago)
Changed paths:    4
Log Message:    
2011-10-20  Steven G. Kargl  <kargl@gcc.gnu.org>

    * gfortran.dg/ishft_3.f90:  Update test.

2011-10-20  Steven G. Kargl  <kargl@gcc.gnu.org>

    * check.c (less_than_bitsize1): Check |shift| <= bit_size(i).
    (gfc_check_ishftc):  Check |shift| <= bit_size(i) and check
    that size is positive.