1! { dg-do run }
2! From PR 33881
3  call create_watch_ss(" ")
4contains
5  subroutine create_watch_actual(name)
6    character(len=1) :: name(1)
7  end subroutine create_watch_actual
8
9  subroutine create_watch_ss(name,clock)
10    character(len=*) :: name
11    integer, optional :: clock
12    if (present(clock)) then
13      call create_watch_actual((/name/))
14    else
15      call create_watch_actual((/name/))
16    end if
17  end subroutine create_watch_ss
18end
19