From a7e34b171b68ba66eae62aa80a41e19cc78380d5 Mon Sep 17 00:00:00 2001 From: Craig Burley Date: Sun, 2 May 1999 14:01:13 +0000 Subject: new test of DO WHILE From-SVN: r26726 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/g77.f-torture/compile/19990502-1.f | 6 ++++++ 2 files changed, 10 insertions(+) create mode 100644 gcc/testsuite/g77.f-torture/compile/19990502-1.f (limited to 'gcc') diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 02e0253..39c0ee3 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,9 @@ 1999-05-02 Craig Burley + * g77.f-torture/compile/19990502-1.f: New test. + +1999-05-02 Craig Burley + * g77.f-torture/compile/19990502-0.f: New test. Sun May 2 01:38:50 1999 Craig Burley diff --git a/gcc/testsuite/g77.f-torture/compile/19990502-1.f b/gcc/testsuite/g77.f-torture/compile/19990502-1.f new file mode 100644 index 0000000..b7238fc --- /dev/null +++ b/gcc/testsuite/g77.f-torture/compile/19990502-1.f @@ -0,0 +1,6 @@ + SUBROUTINE G(IGAMS,IWRK,NADC,NCellsInY) + INTEGER*2 IGAMS(2,NADC) + in = 1 + do while (in.le.nadc.and.IGAMS(2,in).le.in) + enddo + END -- cgit v1.1