TheRock/compiler/amd-llvm/flang/test/Semantics/resolve42.f90

! RUN: %python %S/test_errors.py %s %flang_fc1
subroutine s1
  !ERROR: Array 'x' without ALLOCATABLE or POINTER attribute must have explicit shape
  common x(:), y(4), z
end

subroutine s2
  common /c1/ x, y, z
  !ERROR: 'y' is already in a COMMON block
  common y
end

subroutine s3
  !ERROR: 'x' may not be a procedure as it is in a COMMON block
  procedure(real) :: x
  common x
  common y
  !ERROR: 'y' may not be a procedure as it is in a COMMON block
  procedure(real) :: y
end

subroutine s5
  integer x(2)
  !ERROR: The dimensions of 'x' have already been declared
  common x(4), y(4)
  !ERROR: The dimensions of 'y' have already been declared
  real y(2)
end

function f6(x) result(r)
  !ERROR: ALLOCATABLE object 'y' may not appear in COMMON block //
  !ERROR: Dummy argument 'x' may not appear in COMMON block //
  !ERROR: Function result 'r' may not appear in COMMON block //
  common y,x,z
  allocatable y
  common r
end

module m7
  !ERROR: BIND(C) object 'w' may not appear in COMMON block //
  !ERROR: BIND(C) object 'z' may not appear in COMMON block //
  common w,z
  integer, bind(c) :: z
  integer, bind(c,name="w") :: w
end

module m8
  type t
  end type
  class(*), pointer :: x
  !ERROR: Unlimited polymorphic pointer 'x' may not appear in COMMON block //
  !ERROR: Unlimited polymorphic pointer 'y' may not appear in COMMON block //
  common x, y
  class(*), pointer :: y
end

module m9
  integer x
end
subroutine s9
  use m9
  !ERROR: 'x' is use-associated from module 'm9' and cannot be re-declared
  common x
end

module m10
  type t
  end type
  type(t) :: x
  !ERROR: Object 'x' whose derived type 't' is neither SEQUENCE nor BIND(C) may not appear in COMMON block //
  common x
end

module m11
  type t1
    sequence
    integer, allocatable :: a
  end type
  type t2
    sequence
    type(t1) :: b
    integer:: c
  end type
  type(t2) :: x2
  !ERROR: COMMON block /c2/ may not have the member 'x2' whose derived type 't2' has a component '%b%a' that is ALLOCATABLE or has default initialization
  common /c2/ x2
end

module m12
  type t1
    sequence
    integer :: a = 123
  end type
  type t2
    sequence
    type(t1) :: b
    integer:: c
  end type
  type(t2) :: x2
  !ERROR: COMMON block /c3/ may not have the member 'x2' whose derived type 't2' has a component '%b%a' that is ALLOCATABLE or has default initialization
  common /c3/ x2
end

subroutine s13
  block
    !ERROR: COMMON statement is not allowed in a BLOCK construct
    common x
  end block
end

subroutine s14
  !ERROR: 'c' appears as a COMMON block in a BIND statement but not in a COMMON statement
  bind(c) :: /c/
end

module m15
  interface
    subroutine sub
    end subroutine
  end interface
  type t1
    sequence
    procedure(sub), pointer, nopass :: pp => sub
  end type
  type t2
    sequence
    type(t1) :: a
  end type
  type(t2) :: x2
  !ERROR: COMMON block /c4/ may not have the member 'x2' whose derived type 't2' has a component '%a%pp' that is ALLOCATABLE or has default initialization
  common /c4/ x2
end