URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 302 |
Rev 384 |
! { dg-do run }
|
! { dg-do run }
|
! From PR 33881
|
! From PR 33881
|
call create_watch_ss(" ")
|
call create_watch_ss(" ")
|
contains
|
contains
|
subroutine create_watch_actual(name)
|
subroutine create_watch_actual(name)
|
character(len=1) :: name(1)
|
character(len=1) :: name(1)
|
end subroutine create_watch_actual
|
end subroutine create_watch_actual
|
|
|
subroutine create_watch_ss(name,clock)
|
subroutine create_watch_ss(name,clock)
|
character(len=*) :: name
|
character(len=*) :: name
|
integer, optional :: clock
|
integer, optional :: clock
|
if (present(clock)) then
|
if (present(clock)) then
|
call create_watch_actual((/name/))
|
call create_watch_actual((/name/))
|
else
|
else
|
call create_watch_actual((/name/))
|
call create_watch_actual((/name/))
|
end if
|
end if
|
end subroutine create_watch_ss
|
end subroutine create_watch_ss
|
end
|
end
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.