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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [20080806-1.f90] - Blame information for rev 801

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


MODULE  M1
  IMPLICIT NONE
  TYPE mmm
    COMPLEX(KIND=8), DIMENSION(:,:), POINTER :: data
  END TYPE mmm
 
CONTAINS
 
  SUBROUTINE S(ma,mb,mc)
      TYPE(mmm), POINTER :: ma,mb,mc
      COMPLEX(KIND=8), DIMENSION(:, :), &
        POINTER                                :: a, b, c
      INTEGER :: i,j
      a=>ma%data
      b=>mb%data
      c=>mc%data
      DO i=1,size(a,1)
      DO j=1,size(a,2)
         c(i,j)=a(i,j)*b(i,j)
      ENDDO
      ENDDO
  END SUBROUTINE
 
END MODULE M1

Line No.	Rev	Author	Line
1	695	jeremybenn	`MODULE M1`
2			`IMPLICIT NONE`
3			`TYPE mmm`
4			`COMPLEX(KIND=8), DIMENSION(:,:), POINTER :: data`
5			`END TYPE mmm`
6
7			`CONTAINS`
8
9			`SUBROUTINE S(ma,mb,mc)`
10			`TYPE(mmm), POINTER :: ma,mb,mc`
11			`COMPLEX(KIND=8), DIMENSION(:, :), &`
12			`POINTER :: a, b, c`
13			`INTEGER :: i,j`
14			`a=>ma%data`
15			`b=>mb%data`
16			`c=>mc%data`
17			`DO i=1,size(a,1)`
18			`DO j=1,size(a,2)`
19			`c(i,j)=a(i,j)*b(i,j)`
20			`ENDDO`
21			`ENDDO`
22			`END SUBROUTINE`
23
24			`END MODULE M1`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [20080806-1.f90] - Blame information for rev 801