| 1 |
149 |
jeremybenn |
C { dg-do run }
|
| 2 |
|
|
C
|
| 3 |
|
|
C PR rtl-optimization/25603
|
| 4 |
|
|
C Check if reload handles REG_INC notes correctly.
|
| 5 |
|
|
PROGRAM BAR
|
| 6 |
|
|
IMPLICIT REAL (A-H, O-Z)
|
| 7 |
|
|
DIMENSION WORK(250)
|
| 8 |
|
|
|
| 9 |
|
|
XSTART = 201.0
|
| 10 |
|
|
|
| 11 |
|
|
CALL BAR1(NX,NY,NZ,NT,NTIME,NWINDX,NWINDY,NSINKS,NFILT,
|
| 12 |
|
|
*XSTART,YSTART,ZSTART,TSTART,DELTAX,DELTAY,DELTAZ,DELTAT,PHI,DL,
|
| 13 |
|
|
*DX,DY,DZ,WORK,IB,IK,ITY,NCOUNT,NPRINT,NGRAPH,NPSTEP,NGSTEP)
|
| 14 |
|
|
STOP
|
| 15 |
|
|
END
|
| 16 |
|
|
|
| 17 |
|
|
SUBROUTINE BAR2(NX,NY,NZ,NT,NTIME,NWINDX,ISH,NSMT,NFILT,
|
| 18 |
|
|
* XSTART,YSTART,ZSTART,TSTART,DELTAX,DELTAY,DELTAZ,DELTAT,PHI,DL,
|
| 19 |
|
|
* DX,DY,DZ,IB,IK,ITY,NCOUNT,NPRINT,NGRAPH,NPSTEP,NGSTEP,LFINAL,
|
| 20 |
|
|
* C,STEPC,POTT,STEPT,UX,STEPU,VY,STEPV,WZ,PRES,STEPP,Q,DKZM,DKZH,
|
| 21 |
|
|
* ELEV,ELEVX,ELEVY,Z0,HMIX,STEPH,TAVR,OBUK,USTR,TSTR,VDEP,DEP,
|
| 22 |
|
|
* ZET,HVAR,UM,VM,UG,VG,TM,DKM,DCDX,DCDY,AN,BN,CN,HELP,HELPA)
|
| 23 |
|
|
IMPLICIT REAL (A-H, O-Z)
|
| 24 |
|
|
|
| 25 |
|
|
DIMENSION C(*),STEPC(*),POTT(*),STEPT(*),UX(*),STEPU(*),
|
| 26 |
|
|
* VY(*),STEPV(*),WZ(*),PRES(*),STEPP(*),Q(*),DKZM(*),DKZH(*),
|
| 27 |
|
|
* ELEV(*),ELEVX(*),ELEVY(*),Z0(*),HMIX(*),STEPH(*),TAVR(*),
|
| 28 |
|
|
* OBUK(*),USTR(*),TSTR(*),VDEP(*), DEP(*),ZET(*),HVAR(*),
|
| 29 |
|
|
* UM(*),VM(*),UG(*),VG(*),TM(*),DKM(*), DCDX(*),DCDY(*),
|
| 30 |
|
|
* AN(*),BN(*),CN(*),HELP(*),HELPA(*)
|
| 31 |
|
|
C
|
| 32 |
|
|
|
| 33 |
|
|
RETURN
|
| 34 |
|
|
END
|
| 35 |
|
|
|
| 36 |
|
|
SUBROUTINE BAR1(NX,NY,NZ,NT,NTIME,NWINDX,NWINDY,NSINKS,NFILT,
|
| 37 |
|
|
*XSTART,YSTART,ZSTART,TSTART,DELTAX,DELTAY,DELTAZ,DELTAT,PHI,DL,
|
| 38 |
|
|
*DX,DY,DZ,WORK,IB,IK,ITY,NCOUNT,NPRINT,NGRAPH,NPSTEP,NGSTEP)
|
| 39 |
|
|
|
| 40 |
|
|
IMPLICIT REAL (A-H, O-Z)
|
| 41 |
|
|
DIMENSION WORK(*)
|
| 42 |
|
|
|
| 43 |
|
|
if (XSTART .NE. 201.0) then
|
| 44 |
|
|
call abort
|
| 45 |
|
|
endif
|
| 46 |
|
|
|
| 47 |
|
|
CALL BAR2(NX,NY,NZ,NT,NTIME,NWINDX,NWINDY,NSINKS,NFILT,XSTART,
|
| 48 |
|
|
* YSTART,ZSTART,TSTART,DELTAX,DELTAY,DELTAZ,DELTAT,PHI,DL,
|
| 49 |
|
|
* DX,DY,DZ,IB,IK,ITY,NCOUNT,NPRINT,NGRAPH,NPSTEP,NGSTEP,LAST,
|
| 50 |
|
|
* WORK(LC),WORK(LCSTEP),WORK(LPOT),WORK(LTSTEP),WORK(LUX),
|
| 51 |
|
|
* WORK(LUSTEP),WORK(LVY),WORK(LVSTEP),WORK(LWZ),WORK(LPI),
|
| 52 |
|
|
* WORK(LPSTEP),WORK(LQ),WORK(LDKZM),WORK(LDKZH),WORK(LELEV),
|
| 53 |
|
|
* WORK(LELEVX),WORK(LELEVY),WORK(LZ0),WORK(LHMIX),WORK(LSTEPH),
|
| 54 |
|
|
* WORK(LTAVR),WORK(LOBUK),WORK(LUSTR),WORK(LTSTR),WORK(LVDEP),
|
| 55 |
|
|
* WORK(LDEP),WORK(LZET),WORK(LHVAR),WORK(LUM),WORK(LVM),WORK(LUG),
|
| 56 |
|
|
* WORK(LVG),WORK(LTM),WORK(LKM),WORK(LDCDX),WORK(LDCDY),WORK(LAN),
|
| 57 |
|
|
* WORK(LBN),WORK(LCN),WORK(LHELP),WORK(LHELPA))
|
| 58 |
|
|
|
| 59 |
|
|
RETURN
|
| 60 |
|
|
END
|
