Fix pascal string support; testcase from mailing list message.



git-svn-id: https://llvm.org/svn/llvm-project/cfe/trunk@68181 91177308-0d34-0410-b5e6-96231b3b80d8
2 files changed