From 790d7218531957b1a2427432f4cbfc49f49b3566 Mon Sep 17 00:00:00 2001
From: Hans Bolinder <hasse@erlang.org>
Date: Tue, 5 Jul 2011 10:10:02 +0200
Subject: Fix a bug in erl_scan:set_attribute/3

---
 lib/stdlib/test/erl_scan_SUITE.erl | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'lib/stdlib/test/erl_scan_SUITE.erl')

diff --git a/lib/stdlib/test/erl_scan_SUITE.erl b/lib/stdlib/test/erl_scan_SUITE.erl
index 31a4f94294..4298b2c701 100644
--- a/lib/stdlib/test/erl_scan_SUITE.erl
+++ b/lib/stdlib/test/erl_scan_SUITE.erl
@@ -737,6 +737,10 @@ set_attribute() ->
         (catch {foo, erl_scan:set_attribute(line, [], F2)}), % type error
     ?line {'EXIT',{badarg,_}} =
         (catch {foo, erl_scan:set_attribute(column, [], F2)}), % type error
+
+    %% OTP-9412
+    ?line 8 = erl_scan:set_attribute(line, [{line,{nos,'X',8}}],
+                                     fun({nos,_V,VL}) -> VL end),
     ok.
 
 column_errors() ->
-- 
cgit v1.2.3