;
; This tests the bug mentioned in NCL-2639
;

begin
  wks   = gsn_open_wks("x11","test")

  res                 = True
  res@gsnMaximize     = True
  res@gsnFrame        = False
  plot = gsn_blank_plot(wks,res)

  txres               = True
  txres@txFontHeightF = 0.03                     ; font smaller. default big
  str1 = "~U5~upper ~L5~LOWER ~U1~m~L1~I~U1~x~L1~E~U1~d"  ; "UPPER lower MiXeD"
  str2 = "Should be 'UPPER lower MiXeD'"
  str3 = "~U5~upper (should be 'UPPER')"
  str4 = "~L5~LOWER (should be 'lower')"
  gsn_text(wks,plot,str1,0.5,0.85,txres) 
  gsn_text(wks,plot,str2,0.5,0.75,txres) 
  gsn_text(wks,plot,str3,0.5,0.55,txres) 
  gsn_text(wks,plot,str4,0.5,0.45,txres) 

  frame(wks)

end