diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-01-02 17:42:52 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-01-02 17:42:52 +0000 |
| commit | 71a1e0b3c4bc5434ba2acc6dc317d98395888eb1 (patch) | |
| tree | c343efaeaf68d7d672806ad72bfa945ce5a90841 /gcc | |
| parent | 1ec54668ea91e9bd6bef1ab087f1f94f71c3e483 (diff) | |
| download | gcc-71a1e0b3c4bc5434ba2acc6dc317d98395888eb1.tar.gz | |
2015-01-02 Tobias Burnus <burnus@net-b.de>
* caf/single.c (_gfortran_caf_co_reduce): New function.
* caf/libcaf.h (_gfortran_caf_co_reduce): New prototype.
2015-01-02 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/coarray/collectives_4.f90: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@219148 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 2 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/coarray/collectives_4.f90 | 24 |
3 files changed, 30 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 9c88eb8ead6..9e54b6f2bd0 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -14,7 +14,7 @@ * interface.c (is_procptr_result): New function to check if an expression is a procedure-pointer result. (compare_actual_formal): Use it. - +^L Copyright (C) 2015 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 5fc092e9acf..a47a1a18ede 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2015-01-02 Tobias Burnus <burnus@net-b.de> + + * gfortran.dg/coarray/collectives_4.f90: New. + 2015-01-02 Janus Weil <janus@gcc.gnu.org> PR fortran/57562 @@ -18,7 +22,7 @@ PR fortran/60507 * gfortran.dg/dummy_procedure_11.f90: New. - +^L Copyright (C) 2015 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, diff --git a/gcc/testsuite/gfortran.dg/coarray/collectives_4.f90 b/gcc/testsuite/gfortran.dg/coarray/collectives_4.f90 new file mode 100644 index 00000000000..6e7be46eb3c --- /dev/null +++ b/gcc/testsuite/gfortran.dg/coarray/collectives_4.f90 @@ -0,0 +1,24 @@ +! { dg-do run } +! +! CO_REDUCE +! +implicit none (type, external) +intrinsic :: co_reduce +integer :: stat +integer :: i4, i4_2, i + +i4 = 21 * this_image() +i4_2 = 21 +do i = 2, num_images() + i4_2 = i4_2 * 21 * i +end do +call co_reduce(i4, op_i4, stat=stat) +if (stat /= 0) call abort() +if (i4_2 /= i4) call abort() + +contains + pure integer function op_i4(a,b) + integer, value :: a, b + op_i4 = a * b + end function op_i4 +end |