Searched refs:IPAR1 (Results 1 - 1 of 1) sorted by relevance
/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/g77/ |
H A D | 20010519-1.f | 643 INTEGER ITER,IPAR1,IPAR2,NFSAV,PINBCM,PJNBCM,PDD1CM,LENCMP local in subroutine:NMDIMB 645 COMMON /DIMBI/ ITER,IPAR1,IPAR2,NFSAV,PINBCM,PJNBCM,LENCMP local in subroutine:NMDIMB 959 IF(IPAR1.EQ.0.OR.IPAR2.EQ.0) LWDINI=.TRUE. 960 IF(IPAR1.GE.IPAR2) LWDINI=.TRUE. 961 IF(IABS(IPAR1).GT.NPARC*2) LWDINI=.TRUE. 968 IF(QDW) WRITE(OUTU,545) IPAR1,IPAR2 997 IPA1=IPAR1 1006 CALL IPART(HEAP(SUBLIS),II,IPAR1,IPAR2,HEAP(ATMPAF), 1008 IF((IPAR1.EQ.IPA1).AND.(IPAR2.EQ.IPA2)) GOTO 500 1044 CALL IPART(HEAP(SUBLIS),II,IPAR1,IPAR [all...] |
Completed in 37 milliseconds