mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
23 lines
341 B
Fortran
23 lines
341 B
Fortran
! { 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"
|
|
STOP 1
|
|
end if
|
|
end subroutine bar
|