gcc/testsuite/gfortran.dg/byte_2.f90

   1 ! { dg-do run }
   2 ! { dg-options "-std=gnu" }
   3 program testbyte
   4   integer(1) :: ii = 7
   5   call foo(ii)
   6 end program testbyte
   7
   8 subroutine foo(ii)
   9   integer(1) ii
  10   byte b
  11   b = ii
  12   call bar(ii,b)
  13 end subroutine foo
  14
  15 subroutine bar(ii,b)
  16   integer (1) ii
  17   byte b
  18   if (b.ne.ii) then
  19 !     print *,"Failed"
  20      call abort
  21   end if
  22 end subroutine bar