summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/pr41229.f90
blob: 9f6e566fc9b48f835e06cc8c698cecb0405dd31c (plain)
1
2
3
4
5
6
7
8
9
10
! { 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