URL
https://opencores.org/ocsvn/scarts/scarts/trunk
Subversion Repositories scarts
[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.dg/] [byte_2.f90] - Rev 12
Compare with Previous | Blame | View Log
! { dg-do run }
! { dg-options "-std=gnu" }
program testbyte
integer(1) :: ii = 7
call foo(ii)
end program testbyte
subroutine foo(ii)
integer(1) ii
byte b
b = ii
call bar(ii,b)
end subroutine foo
subroutine bar(ii,b)
integer (1) ii
byte b
if (b.ne.ii) then
! print *,"Failed"
call abort
end if
end subroutine bar