URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 154 |
Rev 816 |
! { dg-do run }
|
! { dg-do run }
|
! Tests the fix for PR27900, in which an ICE would be caused because
|
! Tests the fix for PR27900, in which an ICE would be caused because
|
! the actual argument LEN had no type.
|
! the actual argument LEN had no type.
|
!
|
!
|
! Contributed by Klaus Ramstöck
|
! Contributed by Klaus Ramstöck
|
!
|
!
|
subroutine sub (proc, chr)
|
subroutine sub (proc, chr)
|
external proc
|
external proc
|
integer proc
|
integer proc
|
character*(*) chr
|
character*(*) chr
|
if (proc (chr) .ne. 6) call abort ()
|
if (proc (chr) .ne. 6) call abort ()
|
end subroutine sub
|
end subroutine sub
|
|
|
implicit none
|
implicit none
|
integer i
|
integer i
|
i = len ("123")
|
i = len ("123")
|
call sub (len, "abcdef")
|
call sub (len, "abcdef")
|
end
|
end
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.