Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/optional_dim.f90 @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children |
line wrap: on
line source
! { dg-do compile } subroutine foo(a,n) real, dimension(2) :: a integer, optional :: n print *,maxloc(a,dim=n) ! { dg-error "must not be OPTIONAL" } print *,maxloc(a,dim=4) ! { dg-error "is not a valid dimension index" } print *,maxval(a,dim=n) ! { dg-error "must not be OPTIONAL" } print *,maxval(a,dim=4) ! { dg-error "is not a valid dimension index" } end subroutine foo