diff options
Diffstat (limited to 'gcc/testsuite/g77.f-torture/execute/19990419-1.f')
-rw-r--r-- | gcc/testsuite/g77.f-torture/execute/19990419-1.f | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/gcc/testsuite/g77.f-torture/execute/19990419-1.f b/gcc/testsuite/g77.f-torture/execute/19990419-1.f deleted file mode 100644 index 7449bac2b95..00000000000 --- a/gcc/testsuite/g77.f-torture/execute/19990419-1.f +++ /dev/null @@ -1,21 +0,0 @@ -* Test DO WHILE, to make sure it fully reevaluates its expression. -* Belongs in execute/. - common /x/ ival - j = 0 - do while (i() .eq. 1) - j = j + 1 - if (j .gt. 5) call abort - end do - if (j .ne. 4) call abort - if (ival .ne. 5) call abort - end - function i() - common /x/ ival - ival = ival + 1 - i = 10 - if (ival .lt. 5) i = 1 - end - block data - common /x/ ival - data ival/0/ - end |