diff options
author | Thomas Koenig <Thomas.Koenig@online.de> | 2006-02-14 19:25:36 +0000 |
---|---|---|
committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2006-02-14 19:25:36 +0000 |
commit | ce99d59440477170c00aa9ef2c2dfacb42e6f25f (patch) | |
tree | 3d3ad82e9ba7346317222ce9dd164bc1c566f55b /gcc/testsuite/gfortran.dg | |
parent | 89031799f4009b0416164a7e77a7b008e63d94ad (diff) | |
download | gcc-ce99d59440477170c00aa9ef2c2dfacb42e6f25f.zip gcc-ce99d59440477170c00aa9ef2c2dfacb42e6f25f.tar.gz gcc-ce99d59440477170c00aa9ef2c2dfacb42e6f25f.tar.bz2 |
re PR fortran/25045 ([4.1 only] DIM argument of PRODUCT is not optional)
2006-02-14 Thomas Koenig <Thomas.Koenig@online.de>
PR fortran/25045
* check.c (dim_check): Perform all checks if dim is optional.
(gfc_check_minloc_maxloc): Use dim_check and dim_rank_check
to check dim argument.
(check_reduction): Likewise.
2006-02-14 Thomas Koenig <Thomas.Koenig@online.de>
PR fortran/25045
* optional_dim.f90: New test.
From-SVN: r110994
Diffstat (limited to 'gcc/testsuite/gfortran.dg')
-rw-r--r-- | gcc/testsuite/gfortran.dg/optional_dim.f90 | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/optional_dim.f90 b/gcc/testsuite/gfortran.dg/optional_dim.f90 new file mode 100644 index 0000000..dd201fb --- /dev/null +++ b/gcc/testsuite/gfortran.dg/optional_dim.f90 @@ -0,0 +1,10 @@ +! { 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 + |