Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/pr71642.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! PR debug/71642
kono
parents:
diff changeset
2 ! { dg-do compile }
kono
parents:
diff changeset
3 ! { dg-options "-g" }
kono
parents:
diff changeset
4
kono
parents:
diff changeset
5 MODULE gauss_colloc
kono
parents:
diff changeset
6 INTEGER, PARAMETER :: dp=8
kono
parents:
diff changeset
7 CONTAINS
kono
parents:
diff changeset
8 SUBROUTINE collocGauss(h,h_inv,grid,poly,alphai,posi,max_r2,&
kono
parents:
diff changeset
9 periodic,gdim,local_bounds,local_shift,poly_shift,scale,lgrid,error)
kono
parents:
diff changeset
10 REAL(dp), DIMENSION(0:, 0:, 0:), &
kono
parents:
diff changeset
11 INTENT(inout) :: grid
kono
parents:
diff changeset
12 INTEGER, INTENT(inout), OPTIONAL :: lgrid
kono
parents:
diff changeset
13 CONTAINS
kono
parents:
diff changeset
14 SUBROUTINE kloop6
kono
parents:
diff changeset
15 IF (kJump/=1 .AND. (ikstart+kmax-kstart>=ndim(2)+l_shift(2) .OR.&
kono
parents:
diff changeset
16 ikstart2+kmin-kstart2<=l_ub(2)-ndim(2))) THEN
kono
parents:
diff changeset
17 DO
kono
parents:
diff changeset
18 DO k=kstart2,kend2,-1
kono
parents:
diff changeset
19 IF ( PRESENT ( lgrid ) ) THEN
kono
parents:
diff changeset
20 grid(ik,ij,ii) = grid(ik,ij,ii) + p_v*res_k
kono
parents:
diff changeset
21 END IF
kono
parents:
diff changeset
22 END DO
kono
parents:
diff changeset
23 END DO
kono
parents:
diff changeset
24 END IF
kono
parents:
diff changeset
25 END SUBROUTINE
kono
parents:
diff changeset
26 END SUBROUTINE
kono
parents:
diff changeset
27 END MODULE gauss_colloc