xref: /llvm-project/flang/test/Semantics/assign15.f90 (revision c87e94b0303cef11d24c5a3cf14bec570d850362)
1! RUN: %python %S/test_errors.py %s %flang_fc1
2! Test error location when assignment starts with macro expansion.
3
4#define X_VAR x
5program main
6  real(4) :: x
7  character(10) :: c
8  !ERROR: No intrinsic or user-defined ASSIGNMENT(=) matches operand types REAL(4) and CHARACTER(KIND=1)
9  X_VAR = c
10  !ERROR: No intrinsic or user-defined ASSIGNMENT(=) matches operand types CHARACTER(KIND=1) and REAL(4)
11  c = X_VAR
12end
13