summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/g77/19990419-1.f
blob: e6a4a9bc0492fad07bbf432851ccabd10f89d4cc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
c { dg-do run }
* 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