URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [19990419-1.f] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | View Log


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

Line No.	Rev	Author	Line
1	694	jeremybenn	`c { dg-do run }`
2			`* Test DO WHILE, to make sure it fully reevaluates its expression.`
3			`* Belongs in execute/.`
4			`common /x/ ival`
5			`j = 0`
6			`do while (i() .eq. 1)`
7			`j = j + 1`
8			`if (j .gt. 5) call abort`
9			`end do`
10			`if (j .ne. 4) call abort`
11			`if (ival .ne. 5) call abort`
12			`end`
13			`function i()`
14			`common /x/ ival`
15			`ival = ival + 1`
16			`i = 10`
17			`if (ival .lt. 5) i = 1`
18			`end`
19			`block data`
20			`common /x/ ival`
21			`data ival/0/`
22			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [19990419-1.f] - Blame information for rev 801