aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/byte_3.f
blob: 35ee82878fcc613c9e40157b4fb4d5c54e7dd7d5 (plain)
1
2
3
4
5
6
c { dg-do run }
c { dg-options "-std=legacy" }
      bytea
      a = 1
      if (a /= 1 .and. kind(a) /= a) stop 1
      end