URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pr25603.f] - Blame information for rev 694

Details | Compare with Previous | View Log


C { dg-do run }
C
C PR rtl-optimization/25603
C Check if reload handles REG_INC notes correctly.
      PROGRAM BAR
      IMPLICIT REAL (A-H, O-Z)
      DIMENSION WORK(250)
 
      XSTART = 201.0
 
      CALL BAR1(NX,NY,NZ,NT,NTIME,NWINDX,NWINDY,NSINKS,NFILT,
     *XSTART,YSTART,ZSTART,TSTART,DELTAX,DELTAY,DELTAZ,DELTAT,PHI,DL,
     *DX,DY,DZ,WORK,IB,IK,ITY,NCOUNT,NPRINT,NGRAPH,NPSTEP,NGSTEP)
      STOP
      END
 
      SUBROUTINE BAR2(NX,NY,NZ,NT,NTIME,NWINDX,ISH,NSMT,NFILT,
     * XSTART,YSTART,ZSTART,TSTART,DELTAX,DELTAY,DELTAZ,DELTAT,PHI,DL,
     * DX,DY,DZ,IB,IK,ITY,NCOUNT,NPRINT,NGRAPH,NPSTEP,NGSTEP,LFINAL,
     * C,STEPC,POTT,STEPT,UX,STEPU,VY,STEPV,WZ,PRES,STEPP,Q,DKZM,DKZH,
     * ELEV,ELEVX,ELEVY,Z0,HMIX,STEPH,TAVR,OBUK,USTR,TSTR,VDEP,DEP,
     * ZET,HVAR,UM,VM,UG,VG,TM,DKM,DCDX,DCDY,AN,BN,CN,HELP,HELPA)
      IMPLICIT REAL (A-H, O-Z)
 
      DIMENSION  C(*),STEPC(*),POTT(*),STEPT(*),UX(*),STEPU(*),
     * VY(*),STEPV(*),WZ(*),PRES(*),STEPP(*),Q(*),DKZM(*),DKZH(*),
     * ELEV(*),ELEVX(*),ELEVY(*),Z0(*),HMIX(*),STEPH(*),TAVR(*),
     * OBUK(*),USTR(*),TSTR(*),VDEP(*), DEP(*),ZET(*),HVAR(*),
     * UM(*),VM(*),UG(*),VG(*),TM(*),DKM(*), DCDX(*),DCDY(*),
     * AN(*),BN(*),CN(*),HELP(*),HELPA(*)
C
 
      RETURN
      END
 
      SUBROUTINE BAR1(NX,NY,NZ,NT,NTIME,NWINDX,NWINDY,NSINKS,NFILT,
     *XSTART,YSTART,ZSTART,TSTART,DELTAX,DELTAY,DELTAZ,DELTAT,PHI,DL,
     *DX,DY,DZ,WORK,IB,IK,ITY,NCOUNT,NPRINT,NGRAPH,NPSTEP,NGSTEP)
 
      IMPLICIT REAL (A-H, O-Z)
      DIMENSION  WORK(*)
 
      if (XSTART .NE. 201.0) then
       call abort
      endif
 
      LHELPA = 1
      LHELP = 1
      LCN = 1
      LBN = 1
      LAN = 1
      LDCDY = 1
      LDCDX = 1
      LKM = 1
      LTM = 1
      LVG = 1
      LUG = 1
      LVM = 1
      LUM = 1
      LHVAR = 1
      LZET = 1
      LDEP = 1
      LVDEP = 1
      LTSTR = 1
      LUSTR = 1
      LOBUK = 1
      LTAVR = 1
      LSTEPH = 1
      LHMIX = 1
      LZ0 = 1
      LELEVY = 1
      LELEVX = 1
      LELEV = 1
      LDKZH = 1
      LDKZM = 1
      LQ = 1
      LPSTEP = 1
      LPI = 1
      LWZ = 1
      LVSTEP = 1
      LVY = 1
      LUSTEP = 1
      LUX = 1
      LTSTEP = 1
      LPOT = 1
      LCSTEP = 1
      LC = 1
 
      CALL BAR2(NX,NY,NZ,NT,NTIME,NWINDX,NWINDY,NSINKS,NFILT,XSTART,
     * YSTART,ZSTART,TSTART,DELTAX,DELTAY,DELTAZ,DELTAT,PHI,DL,
     * DX,DY,DZ,IB,IK,ITY,NCOUNT,NPRINT,NGRAPH,NPSTEP,NGSTEP,LAST,
     * WORK(LC),WORK(LCSTEP),WORK(LPOT),WORK(LTSTEP),WORK(LUX),
     * WORK(LUSTEP),WORK(LVY),WORK(LVSTEP),WORK(LWZ),WORK(LPI),
     * WORK(LPSTEP),WORK(LQ),WORK(LDKZM),WORK(LDKZH),WORK(LELEV),
     * WORK(LELEVX),WORK(LELEVY),WORK(LZ0),WORK(LHMIX),WORK(LSTEPH),
     * WORK(LTAVR),WORK(LOBUK),WORK(LUSTR),WORK(LTSTR),WORK(LVDEP),
     * WORK(LDEP),WORK(LZET),WORK(LHVAR),WORK(LUM),WORK(LVM),WORK(LUG),
     * WORK(LVG),WORK(LTM),WORK(LKM),WORK(LDCDX),WORK(LDCDY),WORK(LAN),
     * WORK(LBN),WORK(LCN),WORK(LHELP),WORK(LHELPA))
 
      RETURN
      END

Line No.	Rev	Author	Line
1	694	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			`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`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pr25603.f] - Blame information for rev 694