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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [byte_1.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { 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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.