gcc/testsuite/gfortran.fortran-torture/compile/20080806-1.f90

   1 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