llvm/flang/test/Semantics/assign13.f90

! RUN: %python %S/test_errors.py %s %flang_fc1
program main
  type t
    character(4), pointer :: p
  end type
  character(5), target :: buff = "abcde"
  type(t) x
  !ERROR: Target type CHARACTER(KIND=1,LEN=5_8) is not compatible with pointer type CHARACTER(KIND=1,LEN=4_8)
  x = t(buff)
  !ERROR: Target type CHARACTER(KIND=1,LEN=3_8) is not compatible with pointer type CHARACTER(KIND=1,LEN=4_8)
  x = t(buff(3:))
  !ERROR: Target type CHARACTER(KIND=1,LEN=5_8) is not compatible with pointer type CHARACTER(KIND=1,LEN=4_8)
  x%p => buff
  !ERROR: Target type CHARACTER(KIND=1,LEN=3_8) is not compatible with pointer type CHARACTER(KIND=1,LEN=4_8)
  x%p => buff(1:3)
end