diff options
author | Tobias Burnus <burnus@net-b.de> | 2010-04-06 21:03:10 +0200 |
---|---|---|
committer | Tobias Burnus <burnus@gcc.gnu.org> | 2010-04-06 21:03:10 +0200 |
commit | f4d1d50a5a78c87a06a269f25fbfc7ff29896d14 (patch) | |
tree | 44ad7701af6f733236c159c4af2013f131e90322 /gcc/fortran/lang.opt | |
parent | 377949813aecca7f8c1ede0c28d3de708eb5d06a (diff) | |
download | gcc-f4d1d50a5a78c87a06a269f25fbfc7ff29896d14.zip gcc-f4d1d50a5a78c87a06a269f25fbfc7ff29896d14.tar.gz gcc-f4d1d50a5a78c87a06a269f25fbfc7ff29896d14.tar.bz2 |
re PR fortran/18918 (Eventually support Fortran 2008's coarrays [co-arrays])
2010-04-06 Tobias Burnus <burnus@net-b.de>
PR fortran/18918
* array.c (gfc_match_array_spec): Add error for -fcoarray=none.
* match.c (gfc_match_critical, sync_statement): Ditto.
* gfortran.h (gfc_fcoarray): New enum.
(gfc_option_t): Use it.
* lang.opt (fcoarray): Add new flag.
* invoke.texi (fcoarray): Document it.
* options.c (gfc_init_options,gfc_handle_option): Handle
* -fcoarray=.
(gfc_handle_coarray_option): New function.
2010-04-06 Tobias Burnus <burnus@net-b.de>
PR fortran/18918
* gfortran.dg/coarray_2.f90: Add dg-options -fcoarray=single.
* gfortran.dg/coarray_3.f90: Ditto.
* gfortran.dg/coarray_4.f90: Ditto.
* gfortran.dg/coarray_5.f90: Ditto.
* gfortran.dg/coarray_6.f90: Ditto.
* gfortran.dg/coarray_7.f90: Ditto.
* gfortran.dg/coarray_8.f90: Ditto.
* gfortran.dg/coarray_9.f90: New -fcoarray=none test.
From-SVN: r158016
Diffstat (limited to 'gcc/fortran/lang.opt')
-rw-r--r-- | gcc/fortran/lang.opt | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/fortran/lang.opt b/gcc/fortran/lang.opt index 751749e..1438aa2 100644 --- a/gcc/fortran/lang.opt +++ b/gcc/fortran/lang.opt @@ -348,6 +348,10 @@ frepack-arrays Fortran Copy array sections into a contiguous block on procedure entry +fcoarray= +Fortran RejectNegative JoinedOrMissing +-fcoarray=[...] Specify which coarray parallelization should be used + fcheck= Fortran RejectNegative JoinedOrMissing -fcheck=[...] Specify which runtime checks are to be performed |