11 lines
343 B
Fortran
11 lines
343 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-O2 -g" }
|
|
SUBROUTINE cp_fm_triangular_multiply()
|
|
INTEGER, PARAMETER :: dp=KIND(0.0D0)
|
|
REAL(dp), ALLOCATABLE, DIMENSION(:) :: tau, work
|
|
REAL(KIND=dp), DIMENSION(:, :), POINTER :: a
|
|
ndim = SIZE(a,2)
|
|
ALLOCATE(tau(ndim),STAT=istat)
|
|
ALLOCATE(work(2*ndim),STAT=istat)
|
|
END SUBROUTINE
|