gcc/testsuite/gfortran.dg/pr35849.f90

   1 ! { dg-do compile }
   2 ! PR35849
   3 INTEGER, PARAMETER                 :: j = 15
   4 INTEGER, PARAMETER, DIMENSION(10)  :: A = [(i, i = 1,10)]
   5 INTEGER, PARAMETER, DIMENSION(10)  :: B = ISHFTC(j, A, -20) ! { dg-error "must be positive" }
   6 INTEGER, PARAMETER, DIMENSION(10)  :: C = ISHFTC(1_1, A, j) ! { dg-error "less than or equal to BIT_SIZE" }
   7 INTEGER, PARAMETER, DIMENSION(10)  :: D = ISHFTC(3, A, 5) ! { dg-error "Absolute value of SHIFT shall be less than or equal" }
   8 INTEGER, PARAMETER, DIMENSION(10)  :: E = ISHFTC(3_1, A) ! { dg-error "second argument of ISHFTC exceeds BIT_SIZE of first argument" }
   9 end