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

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [dummyfn.f90] - Blame information for rev 303

Details | Compare with Previous | View Log


! Program to test array valued dummy functions
SUBROUTINE dummyfn(deriv)
   implicit none
   INTERFACE
      FUNCTION deriv()
         REAL :: deriv(4)
      END FUNCTION deriv
   END INTERFACE
 
   REAL :: dx(4)
 
   dx = deriv()
END SUBROUTINE

Line No.	Rev	Author	Line
1	303	jeremybenn	`! Program to test array valued dummy functions`
2			`SUBROUTINE dummyfn(deriv)`
3			`implicit none`
4			`INTERFACE`
5			`FUNCTION deriv()`
6			`REAL :: deriv(4)`
7			`END FUNCTION deriv`
8			`END INTERFACE`
9
10			`REAL :: dx(4)`
11
12			`dx = deriv()`
13			`END SUBROUTINE`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [dummyfn.f90] - Blame information for rev 303