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

Subversion Repositories openrisc

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

Go to most recent revision | Details | Compare with Previous | 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

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-std=gnu" }`
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`
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`
18			`if (b.ne.ii) then`
19			`! print *,"Failed"`
20			`call abort`
21			`end if`
22			`end subroutine bar`

Browse

Tools

Subversion Repositories openrisc

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