2 ! { dg-options "-fcoarray=lib" }
9 type(lock_type
), allocatable
:: x
[:]
18 !class(lock_type), allocatable :: cl[:]
20 lock(a
%x
) ! { dg-error "the lock component of derived type at \\(1\\) is not yet supported" }
21 lock(b
%x
) ! { dg-error "the lock component of derived type at \\(1\\) is not yet supported" }
24 unlock(a
%x
) ! { dg-error "the lock component of derived type at \\(1\\) is not yet supported" }
25 unlock(b
%x
) ! { dg-error "the lock component of derived type at \\(1\\) is not yet supported" }