16 lines
673 B
Fortran
16 lines
673 B
Fortran
! 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
|