2 ! Tests the fix PR29744, which is really a repeat of PR19362.
3 ! The problem came about because the test for PR19362 shifted
4 ! the fix to a subroutine, rather than the main program that
5 ! it originally occurred in. Fixes for subsequent PRs introduced
6 ! a difference between the main program and a contained procedure
7 ! that resulted in the compiler going into an infinite loop.
9 ! Contributed by Harald Anlauf <anlauf@gmx.de>
10 ! and originally by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>