Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/pr63883.f90 @ 144:8f4e72ab4e11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix segmentation fault caused by nothing next cur_op to end
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Sun, 23 Dec 2018 21:23:56 +0900
parents 04ced10e8804
children
line wrap: on
line source

! { dg-do compile }
! { dg-additional-options "-ffast-math" }
  SUBROUTINE influence_factor ( gftype, error )
    INTEGER, PARAMETER :: dp=8
    INTEGER :: k,n,lb(3),ub(3),dim,pt
    COMPLEX(KIND=dp)                         :: b_m, exp_m, sum_m
    DO k = 0, n-2
       DO pt = lb (dim), ub (dim)
          sum_m = CMPLX ( 0.0_dp, 0.0_dp,KIND=dp)
          b_m = exp_m ** ( n - 1 ) / sum_m
       END DO
    END DO
  END SUBROUTINE influence_factor