/* APPLE LOCAL file 4102133 */ /* { dg-do compile } */ /* { dg-options "-O2" } */ struct { int k_; } detwfn_; struct { double x_[1]; } fmcom_; void gciprt_(int *iw_) { int Tmp8, ibcon_, iwrk_, ibo_, jstsym_, lcivec_, iacon_, igmul_; int i_, nsym_, ipica_, ipicb_; ibo_ = iwrk_ + 43; Tmp8 = detwfn_.k_; for(i_ = 1;i_ <= Tmp8;i_++) { gcisym_(iw_,&fmcom_.x_[lcivec_ + -1],&fmcom_.x_[ipica_ + -1],&fmcom_.x_[ipicb_ + -1], &fmcom_.x_[iacon_ + -1],&fmcom_.x_[ibcon_ + -1],&fmcom_.x_[igmul_ + -1],&nsym_, &fmcom_.x_[iwrk_ + -1],&fmcom_.x_[ibo_ + -1],&jstsym_); } return ; }