1! { dg-do compile }
2! { dg-options "-O2 -g" }
3SUBROUTINE cp_fm_triangular_multiply()
4    INTEGER, PARAMETER :: dp=KIND(0.0D0)
5    REAL(dp), ALLOCATABLE, DIMENSION(:)      :: tau, work
6    REAL(KIND=dp), DIMENSION(:, :), POINTER  :: a
7    ndim = SIZE(a,2)
8    ALLOCATE(tau(ndim),STAT=istat)
9    ALLOCATE(work(2*ndim),STAT=istat)
10END SUBROUTINE
11