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

Subversion Repositories openrisc

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

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


c { dg-do compile }
* GNATS PR Fortran/1636
      PRINT 42, 'HELLO'
   42 FORMAT(A)
      CALL WORLD
      END
      SUBROUTINE WORLD
      PRINT 42, 'WORLD'
   42 FORMAT(A)
      END

Line No.	Rev	Author	Line
1	694	jeremybenn	`c { dg-do compile }`
2			`* GNATS PR Fortran/1636`
3			`PRINT 42, 'HELLO'`
4			`42 FORMAT(A)`
5			`CALL WORLD`
6			`END`
7			`SUBROUTINE WORLD`
8			`PRINT 42, 'WORLD'`
9			`42 FORMAT(A)`
10			`END`

Browse

Tools

Subversion Repositories openrisc

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