diff options
| author | Andre Vehreschild <vehre@gcc.gnu.org> | 2016-07-22 11:58:50 +0200 |
|---|---|---|
| committer | Andre Vehreschild <vehre@gcc.gnu.org> | 2016-07-22 11:58:50 +0200 |
| commit | 9fe9a3a780c9cd8f5fa45e162640b7169c27fe8f (patch) | |
| tree | 1c0f3d1cddd27ab0187228634e40acedd23011c5 /gcc | |
| parent | 4971dd802d586f57d999152825d407800970be4e (diff) | |
| download | gcc-9fe9a3a780c9cd8f5fa45e162640b7169c27fe8f.zip gcc-9fe9a3a780c9cd8f5fa45e162640b7169c27fe8f.tar.gz gcc-9fe9a3a780c9cd8f5fa45e162640b7169c27fe8f.tar.bz2 | |
libcaf.h: Add parameter stat to caf_get() and caf_send()'s function prototypes.
libgfortran/ChangeLog:
2016-07-22 Andre Vehreschild <vehre@gcc.gnu.org>
* caf/libcaf.h: Add parameter stat to caf_get() and
caf_send()'s function prototypes.
* caf/single.c (_gfortran_caf_get): Implement reporting
error using stat instead of abort().
(_gfortran_caf_send): Same.
(_gfortran_caf_sendget): Use NULL for stat when calling
caf_send().
gcc/testsuite/ChangeLog:
2016-07-22 Andre Vehreschild <vehre@gcc.gnu.org>
* gfortran.dg/coarray_stat_2.f90: New test.
From-SVN: r238636
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/coarray_stat_2.f90 | 23 |
2 files changed, 27 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 0a5a032..662eda6 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2016-07-22 Andre Vehreschild <vehre@gcc.gnu.org> + + * gfortran.dg/coarray_stat_2.f90: New test. + 2016-07-21 Michael Meissner <meissner@linux.vnet.ibm.com> * gcc.target/powerpc/vec-extract.h: New files to check the diff --git a/gcc/testsuite/gfortran.dg/coarray_stat_2.f90 b/gcc/testsuite/gfortran.dg/coarray_stat_2.f90 new file mode 100644 index 0000000..3bbd3fc --- /dev/null +++ b/gcc/testsuite/gfortran.dg/coarray_stat_2.f90 @@ -0,0 +1,23 @@ +! { dg-do run } +! { dg-options "-fcoarray=lib -lcaf_single" } +! +! Support for stat= in caf reference +! +program whitespace + implicit none + + integer :: me[*],tmp,stat + + me = this_image() + stat = 0 + + sync all(stat = stat) + + if(stat /= 0) write(*,*) 'failure during sync' + + stat = 42 + + tmp = me[num_images(),stat = stat] + if(stat /= 0) call abort() + +end program whitespace |