URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [byte_1.f90] - Rev 305
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do compile }
! { dg-options "-fall-intrinsics -std=f95" }
program testbyte
integer(1) :: ii = 7
call foo(ii)
end program testbyte
subroutine foo(ii)
integer(1) ii
byte b ! { dg-error "BYTE type" }
b = ii
call bar(ii,b)
end subroutine foo
subroutine bar(ii,b)
integer (1) ii
byte b ! { dg-error "BYTE type" }
if (b.ne.ii) then
! print *,"Failed"
call abort
end if
end subroutine bar
Go to most recent revision | Compare with Previous | Blame | View Log