URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [cpp.F] - Blame information for rev 437

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	302	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_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [cpp.F] - Blame information for rev 437