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

Subversion Repositories openrisc

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

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


c { dg-do compile }
C When run through the C preprocessor, the indentation of the
C CONTINUE line must not be mangled.
      subroutine aap(a, n)
      dimension a(n)
      do 10 i = 1, n
         a(i) = i
 10   continue
      print *, a(1)
      end

Line No.	Rev	Author	Line
1	694	jeremybenn	`c { dg-do compile }`
2			`C When run through the C preprocessor, the indentation of the`
3			`C CONTINUE line must not be mangled.`
4			`subroutine aap(a, n)`
5			`dimension a(n)`
6			`do 10 i = 1, n`
7			`a(i) = i`
8			`10 continue`
9			`print *, a(1)`
10			`end`

Browse

Tools

Subversion Repositories openrisc

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