1 files changed, 1 insertions, 1 deletions
diff --git a/sem_stmts.adb b/sem_stmts.adb
index 30ea99cae..a62890a55 100644
--- a/sem_stmts.adb
+++ b/sem_stmts.adb
@@ -739,7 +739,7 @@ package body Sem_Stmts is
          end if;
       end if;
       if not Check_Implicit_Conversion (Get_Type (Target), Expr) then
-         Error_Msg_Sem
+         Warning_Msg_Sem
            ("expression length does not match target length", Stmt);
       end if;
    end Sem_Variable_Assignment;