Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/coarray_lock_6.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! { dg-options "-fcoarray=lib" } ! ! use iso_fortran_env implicit none type t1 type(lock_type), allocatable :: x[:] end type t1 type t2 type(lock_type) :: x end type t2 type(t1) :: a type(t2) :: b[*] !class(lock_type), allocatable :: cl[:] lock(a%x) ! { dg-error "the lock component of derived type at \\(1\\) is not yet supported" } lock(b%x) ! { dg-error "the lock component of derived type at \\(1\\) is not yet supported" } !lock(cl) unlock(a%x) ! { dg-error "the lock component of derived type at \\(1\\) is not yet supported" } unlock(b%x) ! { dg-error "the lock component of derived type at \\(1\\) is not yet supported" } !unlock(cl) end