| ! 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 |