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

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [dummyfn.f90] - Blame information for rev 12

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	12	jlechner	`! 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 scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [dummyfn.f90] - Blame information for rev 12