diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2015-08-26 12:37:42 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2015-08-26 12:37:42 +0000 |
| commit | ed019753cb56d0f1b770bcb386e840c9785949d5 (patch) | |
| tree | f1c84026400bff374b6122e5c8ae844e7d2a18ad /gcc | |
| parent | 485adf79b5e5fa8808fdca1dbc2e818902dfa081 (diff) | |
| download | gcc-ed019753cb56d0f1b770bcb386e840c9785949d5.zip gcc-ed019753cb56d0f1b770bcb386e840c9785949d5.tar.gz gcc-ed019753cb56d0f1b770bcb386e840c9785949d5.tar.bz2 | |
re PR fortran/29600 ([F03] MINLOC and MAXLOC take an optional KIND argument)
PR fortran/29600
* Makefile.am: Add generated/shape_i{1,2}.c
* Makefile.in: Regenerate.
* generated/shape_i1.c: New generated file.
* generated/shape_i2.c: New generated file.
* generated/shape_i4.c: Regenerate.
* generated/shape_i8.c: Regenerate.
* generated/shape_i16.c: Regenerate.
* gfortran.map (GFORTRAN_1.7): Add _gfortran_shape_{1,2}.
* m4/shape.m4: Fix parameter type.
* gfortran.dg/shape_8.f90: New test.
From-SVN: r227210
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/shape_8.f90 | 15 |
2 files changed, 20 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index e8365be..ac54988 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2015-08-26 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + + PR fortran/29600 + * gfortran.dg/shape_8.f90: New test. + 2015-08-25 Marek Polacek <polacek@redhat.com> PR middle-end/67330 diff --git a/gcc/testsuite/gfortran.dg/shape_8.f90 b/gcc/testsuite/gfortran.dg/shape_8.f90 new file mode 100644 index 0000000..51c6e55 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/shape_8.f90 @@ -0,0 +1,15 @@ +! { dg-do run } +! +! Check that we can use SHAPE with optional kind argument +! +program test + implicit none + real, allocatable :: x(:,:) + + allocate(x(2,5)) + if (any(shape(x) /= [ 2, 5 ])) call abort + if (any(shape(x,kind=1) /= [ 2, 5 ])) call abort + if (any(shape(x,kind=2) /= [ 2, 5 ])) call abort + if (any(shape(x,kind=4) /= [ 2, 5 ])) call abort + if (any(shape(x,kind=8) /= [ 2, 5 ])) call abort +end |