http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18918

--- Comment #61 from Dominique d'Humieres <dominiq at lps dot ens.fr> 
2011-06-21 06:20:29 UTC ---
> On Linux/x86, I got
>
> FAIL: gfortran.dg/coarray_lock_3.f90  -O   (test for errors, line 72)

On x86_64-apple-darwin10 too. The following reduced code does not give the
expected error:

subroutine lock_test2
  use iso_fortran_env
  implicit none
  type t
  end type t
  type(t) :: x
  type(lock_type), save :: lock[*],lock2(2)[*]
  lock(lock)
  lock(lock2(1))
  lock(lock[1]) ! { dg-error "must be a scalar coarray of type LOCK_TYPE" } !
<-- no error
end subroutine lock_test2

Reply via email to