13 lines
418 B
Fortran
13 lines
418 B
Fortran
|
! RUN: %python %S/test_errors.py %s %flang_fc1
|
||
|
|
! Test error location when assignment starts with macro expansion.
|
||
|
|
|
||
|
|
#define X_VAR x
|
||
|
|
program main
|
||
|
|
real(4) :: x
|
||
|
|
character(10) :: c
|
||
|
|
!ERROR: No intrinsic or user-defined ASSIGNMENT(=) matches operand types REAL(4) and CHARACTER(KIND=1)
|
||
|
|
X_VAR = c
|
||
|
|
!ERROR: No intrinsic or user-defined ASSIGNMENT(=) matches operand types CHARACTER(KIND=1) and REAL(4)
|
||
|
|
c = X_VAR
|
||
|
|
end
|