gcc/testsuite/gfortran.dg/byte_4.f90

! { dg-do compile }
! { dg-options "-w" }
      bytea          ! { dg-error "Unclassifiable statement" }
      byte b
      byte :: d
      a = 1
      b = 1
      d = 1
      print *, a, b * d
      end