URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [byte_1.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-do compile }`	`! { dg-do compile }`
`! { dg-options "-fall-intrinsics -std=f95" }`	`! { dg-options "-fall-intrinsics -std=f95" }`
`program testbyte`	`program testbyte`
`integer(1) :: ii = 7`	`integer(1) :: ii = 7`
`call foo(ii)`	`call foo(ii)`
`end program testbyte`	`end program testbyte`

`subroutine foo(ii)`	`subroutine foo(ii)`
`integer(1) ii`	`integer(1) ii`
`byte b ! { dg-error "BYTE type" }`	`byte b ! { dg-error "BYTE type" }`
`b = ii`	`b = ii`
`call bar(ii,b)`	`call bar(ii,b)`
`end subroutine foo`	`end subroutine foo`

`subroutine bar(ii,b)`	`subroutine bar(ii,b)`
`integer (1) ii`	`integer (1) ii`
`byte b ! { dg-error "BYTE type" }`	`byte b ! { dg-error "BYTE type" }`
`if (b.ne.ii) then`	`if (b.ne.ii) then`
`! print *,"Failed"`	`! print *,"Failed"`
`call abort`	`call abort`
`end if`	`end if`
`end subroutine bar`	`end subroutine bar`