! { dg-do run } | |
! PR 30865 - passing a subroutine optional argument to size(dim=...) | |
! used to segfault. | |
program main | |
implicit none | |
integer :: a(2,3) | |
integer :: ires | |
call checkv (ires, a) | |
if (ires /= 6) STOP 1 | |
call checkv (ires, a, 1) | |
if (ires /= 2) STOP 2 | |
contains | |
subroutine checkv(ires,a1,opt1) | |
integer, intent(out) :: ires | |
integer :: a1(:,:) | |
integer, optional :: opt1 | |
ires = size (a1, dim=opt1) | |
end subroutine checkv | |
end program main |