flang/test/Semantics/assign15.f90

   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
   5 program 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
  12 end