From a7e34b171b68ba66eae62aa80a41e19cc78380d5 Mon Sep 17 00:00:00 2001 From: Craig Burley Date: Sun, 2 May 1999 14:01:13 +0000 Subject: [PATCH] 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 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 02e02539872..39c0ee314e6 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +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. 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 00000000000..b7238fcd881 --- /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 -- 2.30.2