https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69838
--- Comment #6 from Jakub Jelinek <jakub at gcc dot gnu.org> --- Created attachment 37739 --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=37739&action=edit gcc6-pr69838.patch Untested fix. Don't have ada set up on s390{,x}, so can just test this on x86_64.
