Add testcase for fixed PR

[FX]

PR 38829 was fixed sometime between 4.5 and 4.6. I committed the attached patch (rev. 211354) to add it to our testsuite, to avoid future regressions.

FX


-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr38829.diff
Type: application/octet-stream
Size: 905 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20140608/61ffc3d5/attachment.obj>