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