! { dg-do compile }
! Test fix for PR fortran/28548.
!
SUBROUTINE foo(a, d)
  real a
  integer, dimension(3), optional :: d
  if (present(d)) d = d + a
END SUBROUTINE