1C { dg-do run } 2C 3C PR rtl-optimization/25603 4C 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(*) 31C 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 LHELPA = 1 48 LHELP = 1 49 LCN = 1 50 LBN = 1 51 LAN = 1 52 LDCDY = 1 53 LDCDX = 1 54 LKM = 1 55 LTM = 1 56 LVG = 1 57 LUG = 1 58 LVM = 1 59 LUM = 1 60 LHVAR = 1 61 LZET = 1 62 LDEP = 1 63 LVDEP = 1 64 LTSTR = 1 65 LUSTR = 1 66 LOBUK = 1 67 LTAVR = 1 68 LSTEPH = 1 69 LHMIX = 1 70 LZ0 = 1 71 LELEVY = 1 72 LELEVX = 1 73 LELEV = 1 74 LDKZH = 1 75 LDKZM = 1 76 LQ = 1 77 LPSTEP = 1 78 LPI = 1 79 LWZ = 1 80 LVSTEP = 1 81 LVY = 1 82 LUSTEP = 1 83 LUX = 1 84 LTSTEP = 1 85 LPOT = 1 86 LCSTEP = 1 87 LC = 1 88 89 CALL BAR2(NX,NY,NZ,NT,NTIME,NWINDX,NWINDY,NSINKS,NFILT,XSTART, 90 * YSTART,ZSTART,TSTART,DELTAX,DELTAY,DELTAZ,DELTAT,PHI,DL, 91 * DX,DY,DZ,IB,IK,ITY,NCOUNT,NPRINT,NGRAPH,NPSTEP,NGSTEP,LAST, 92 * WORK(LC),WORK(LCSTEP),WORK(LPOT),WORK(LTSTEP),WORK(LUX), 93 * WORK(LUSTEP),WORK(LVY),WORK(LVSTEP),WORK(LWZ),WORK(LPI), 94 * WORK(LPSTEP),WORK(LQ),WORK(LDKZM),WORK(LDKZH),WORK(LELEV), 95 * WORK(LELEVX),WORK(LELEVY),WORK(LZ0),WORK(LHMIX),WORK(LSTEPH), 96 * WORK(LTAVR),WORK(LOBUK),WORK(LUSTR),WORK(LTSTR),WORK(LVDEP), 97 * WORK(LDEP),WORK(LZET),WORK(LHVAR),WORK(LUM),WORK(LVM),WORK(LUG), 98 * WORK(LVG),WORK(LTM),WORK(LKM),WORK(LDCDX),WORK(LDCDY),WORK(LAN), 99 * WORK(LBN),WORK(LCN),WORK(LHELP),WORK(LHELPA)) 100 101 RETURN 102 END 103