19 lines
447 B
Fortran
19 lines
447 B
Fortran
|
! { dg-do run }
|
||
|
! From PR 33881
|
||
|
call create_watch_ss(" ")
|
||
|
contains
|
||
|
subroutine create_watch_actual(name)
|
||
|
character(len=1) :: name(1)
|
||
|
end subroutine create_watch_actual
|
||
|
|
||
|
subroutine create_watch_ss(name,clock)
|
||
|
character(len=*) :: name
|
||
|
integer, optional :: clock
|
||
|
if (present(clock)) then
|
||
|
call create_watch_actual((/name/))
|
||
|
else
|
||
|
call create_watch_actual((/name/))
|
||
|
end if
|
||
|
end subroutine create_watch_ss
|
||
|
end
|