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] - Blame information for rev 823

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

Line No.	Rev	Author	Line
1	149	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`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [byte_1.f90] - Blame information for rev 823