gcc/testsuite/gfortran.dg/byte_1.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fall-intrinsics -std=f95" }
   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          ! { dg-error "BYTE type" }
  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          ! { dg-error "BYTE type" }
  18   if (b.ne.ii) then
  19 !     print *,"Failed"
  20      call abort
  21   end if
  22 end subroutine bar