gcc/testsuite/gfortran.dg/coarray_lock_4.f90

! { dg-do compile }
! { dg-options "-fcoarray=single" }
!
!
! LOCK/LOCK_TYPE checks 
!

subroutine valid()
  use iso_fortran_env
  implicit none
  type t
    type(lock_type) :: lock
  end type t

  type t2
    type(lock_type), allocatable :: lock(:)[:]
  end type t2

  type(t), save :: a[*]
  type(t2), save :: b ! OK

  allocate(b%lock(1)[*])
  LOCK(a%lock) ! OK
  LOCK(a[1]%lock) ! OK

  LOCK(b%lock(1)) ! OK
  LOCK(b%lock(1)[1]) ! OK
end subroutine valid

subroutine invalid()
  use iso_fortran_env
  implicit none
  type t
    type(lock_type) :: lock
  end type t
  type(t), save :: a ! { dg-error "type LOCK_TYPE or with subcomponent of type LOCK_TYPE must be a coarray" }
end subroutine invalid

subroutine more_tests
  use iso_fortran_env
  implicit none
  type t
    type(lock_type) :: a ! OK
  end type t

  type t1
    type(lock_type), allocatable :: c2(:)[:] ! OK 
  end type t1
  type(t1) :: x1 ! OK

  type t2
    type(lock_type), allocatable :: c1(:) ! { dg-error "Allocatable component c1 at .1. of type LOCK_TYPE must have a codimension" }
  end type t2

  type t3
    type(t) :: b
  end type t3
  type(t3) :: x3 ! { dg-error "of type LOCK_TYPE or with subcomponent of type LOCK_TYPE must be a coarray" }

  type t4
    type(lock_type) :: c0(2)
  end type t4
  type(t4) :: x4 ! { dg-error "of type LOCK_TYPE or with subcomponent of type LOCK_TYPE must be a coarray" }
end subroutine more_tests