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
|