c: Fix up pointer types to may_alias structures [PR114493]

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr106911.f90

! { dg-do compile }
! PR fortran/106911 - ICE in gfc_convert_mpz_to_signed
! Contributed by G.Steinmetz

program p
  implicit none
  integer, parameter :: a = 10
  integer, parameter :: b = 20
  integer, parameter :: c = ishftc(1_1, a, b) ! { dg-error "must be less than or equal" }
  integer, parameter :: d = ishftc(1_1, a, 0) ! { dg-error "must be positive" }
  interface
     subroutine s
       import :: a, b
       integer, parameter :: e = ishftc(1_1, a, b) ! { dg-error "must be less than or equal" }
       integer, parameter :: f = ishftc(1_1, a, 0) ! { dg-error "must be positive" }
     end
  end interface
end