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

Subversion Repositories openrisc_me

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

Go to most recent revision | 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	149	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_me

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