Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "-fcoarray=single" }

!

! Coarray declaration constraint checks

!

function foo3a() result(res)

  implicit none

  integer :: res

  codimension :: res[*] ! { dg-error "CODIMENSION attribute conflicts with RESULT" }

end

function foo2a() result(res)

  integer :: res[*] ! { dg-error "CODIMENSION attribute conflicts with RESULT" }

end

function fooa() result(res) ! { dg-error "shall not be a coarray or have a coarray component" }

  implicit none

  type t

    integer, allocatable :: A[:]

  end type t

  type(t):: res

end

function foo3() ! { dg-error "shall not be a coarray or have a coarray component" }

  implicit none

  integer :: foo3

  codimension :: foo3[*]

end

function foo2() ! { dg-error "shall not be a coarray or have a coarray component" }

  implicit none

  integer :: foo2[*]

end

function foo() ! { dg-error "shall not be a coarray or have a coarray component" }

  type t

    integer, allocatable :: A[:]

  end type t

  type(t):: foo

end

subroutine test()

  use iso_c_binding

  implicit none

  type(c_ptr), save :: caf[*] ! { dg-error "shall not be a coarray" }

end subroutine test

subroutine test2()

  use iso_c_binding

  implicit none

  type(c_funptr), save :: caf[*] ! { dg-error "shall not be a coarray" }

end subroutine test2