2015-04-10 Tobias Burnus <burnus@net-b.de>
authormikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 10 Apr 2015 12:03:35 +0000 (12:03 +0000)
committermikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 10 Apr 2015 12:03:35 +0000 (12:03 +0000)
commit0c10bedd20d5e55a7b10b1437289c8ed3c48074d
tree4b0b922eb75c016e5b0c6256c024a7e35a063e14
parent72bec0a30bfd356968f75a33eb9ae7160babf5a3
2015-04-10  Tobias Burnus  <burnus@net-b.de>

gcc/fortran/
* trans-stmt.c (gfc_trans_lock_unlock): Implement -fcoarray=lib
version; reject not-yet-implemented variants.
* trans-types.c (gfc_get_derived_type): For lock_type with
-fcoarray=lib, use a void pointer as type.
* trans.c (gfc_allocate_using_lib, gfc_allocate_allocatable):
Handle lock_type with -fcoarray=lib.

gcc/testsuite/
* gfortran.dg/coarray_lock_6.f90: New.
* gfortran.dg/coarray_lock_7.f90: New.
* gfortran.dg/coarray/lock_2.f90: New.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@221973 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/fortran/ChangeLog
gcc/fortran/trans-stmt.c
gcc/fortran/trans-types.c
gcc/fortran/trans.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/coarray/lock_2.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/coarray_lock_6.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/coarray_lock_7.f90 [new file with mode: 0644]