gcc/testsuite/gfortran.dg/pr81509_2.f90

   1 ! { dg-do compile }
   2 ! https://gcc.gnu.org/bugzilla/show_bug.cgi?id=81509
   3 !
   4 program foo
   5 logical :: a = .false.
   6 integer :: i = 42
   7 integer(8) :: k
   8 k = iand(z'aaaa', z'1234')    ! { dg-error "cannot both be BOZ literal" }
   9 k = and(z'aaaa', z'1234')     ! { dg-error "cannot both be BOZ literal" }
  10 k = and(1, z'1234')
  11 k = and(i, z'1234')
  12 k = ieor(z'ade',i)
  13 k = ior(i,z'1111')
  14 k = ior(i,k)                  ! { dg-error "different kind type parameters" }
  15 k = and(i,k)                  ! { dg-error "must be the same type" }
  16 k = and(a,z'1234')            ! { dg-error "must be the same type" }
  17 end program foo
  18