Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/size_optional_dim_1.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { 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