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