blob: 66a6fe2b80d3b46be6d64cb78c9debb6867599cb [file] [log] [blame]
! PR fortran/52370
! { dg-do compile }
! { dg-options "-O1 -Wall" }
module pr52370
contains
subroutine foo(a,b)
real, intent(out) :: a
real, dimension(:), optional, intent(out) :: b
a=0.5
if (present(b)) then
b=1.0
end if
end subroutine foo
end module pr52370
program prg52370
use pr52370
real :: a
call foo(a)
end program prg52370