(root)/
gcc-13.2.0/
gcc/
testsuite/
gfortran.dg/
byte_3.f
c { dg-do run }
c { dg-options "-std=legacy" }
      bytea
      a = 1
      if (a /= 1 .and. kind(a) /= a) stop 1
      end