regression test for named control statements

[Bernhard Fischer]

On Tue, Aug 23, 2005 at 03:50:27PM -0700, Steve Kargl wrote:
>On Wed, Aug 24, 2005 at 12:30:54AM +0200, Bernhard Fischer wrote:
>> 
>> I did not see a regression test for named control statements in the
>> testsuite.
>
>See gfortran.dg/duplicate_labels.f90.
>
>> Would be something like the attached be appropriate?
>
>Your testcase augments the duplicate_labels.f90 test,
>and so I think it would be good addition to testsuite.
>If no one else objects, then please commit it.  But,
>give everyone at least 24 hours to respond.
>
>I also noticed that you used CYCLE, but not an EXIT
>statement. Can you add a test with EXIT?

Is there interrest in providing such a testcase (also with EXIT)?

I take it that this is in no way a significant contribution, so
shouldn't depend on the copyright assignment to be finished.