! { 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 |